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INTRODUCTION 


OS/DITTO EXTENSIONS (5798-CDA) is an enhancement to Field Developed 
Program OS/DITTO (5798-ARD). This PDOM replaces the 5798-ARD PDOM 
to serve as a single reference manual for all functions. The 
5798-ARD PDOM should still be referred to for installation in- 
structions for that program and HASP environment considerations. 


In today's operating system environment, greater emphasis is 

being placed on programming and operations productivity. Reductions 
in the amount of personnel time required to test applications can 
provide significant benefits to data processing installations. The 
OS/DITTO program reduces test time requirements by providing the 
facility to examine, alter, and modify data files used in both a 
testing and production environment. 


A file built incorrectly during testing can significantly impact 
programmer and system time. Standard utility control card require 
accurate specifications of file labels, physical and logical record 
sizes, and physical device characteristics. If the programmer 
generates the file incorrectly, the standard utility will not access 
the file. The programmer is then forced into a series of iterations, 
Specifying various file characteristics, until he finally discovers 
the actual attributes of the generated file. 


OS/DITTO provides the user with the ability to access and display 
any file on any supported device. The user can determine quickly 
and accurately the file characteristics, and then initiate commands 
to provide the necessary data to continue testing. 


SYSTEM OVERVIEW 


DESCRIPTION 


OS/DITTO is a general-purpose utility program containing thirty- 
seven (37) utility functions for Unit Record, Tape, and Disk 
Input/Output units. Functional utilities available in addition 
to normal card, disk and tape utilities are: 


Tape and Disk Record Scan, Disk and Tape Record Alteration, Disk 
ID Volume Number Change, Deblocking of Tape Records when printing, 
and User Tape Error Correction. OS/DITTO is an OS version of the 
FDP DOS/DITTO (5798-ARN), which is an enhanced version of the 
Type III program DITTO-360D-00.1.018. 


OS/DITTO EXTENSIONS (5798-CDA) offers 22 additional functions, 
Device Type macro support for obtaining DASD characteristics; 
a DB/DC Logtape Close capability, Standard Label tape support 
for DITTO tape output functions, and an optional TSO terminal 
interface. 


Operating Characteristics are: 


= Input/Output areas are allocated based on the user's 
specification at assembly time. 


7 Operations may be performed entirely from the system 
console or function card statements may be job-streamed 
for remote programmer use. 


_ All console communication is done by initiating OS 
cataloged procedures. Device selection may be specified 
by entering optional keyword parameters on the start 
command. 


Significant Enhancements to the Original Type III Version are: 


_ Support for 3330 (Model I and II), 3340 Models (35 and 70), 
and 2305 (Models 1 and 2). 


- Support for the 3505 Card Reader and 3525 Card Punch, 
with additional support for the 3525 punch and interpret 
feature. 


- Five new utility functions including support for printing 
and automatic deblocking of variable length tape records, 
and tape copying with reblocking of logical records. 


= A new string parameter format for console operation 
allows multiple parameters to be entered in a single 
Operator response, thus reducing console message 
time. 


= Control card parameters are now free form and variable 
length format. 


- Use of QSAM for all printed output improves printer 
performance. 


- Documented source code, utilizing expanded register 
notation, facilitates user modification and customizing 
1f desired. 


- New "I/O Device Characteristics" table provides the 
ability to support additional I/O devices. 


= A new documentation function provides a program generated 
document of all utilities and associated parameter re- 
quirements. This reduces the need to reference manuals 
for operational answers. 


Highlights of OS/DITTO EXTENSIONS are: 


Twelve SYSTEM UTILITY functions save operator, programmer, and 
especially system programmer time by avoiding the typical cycle 

of reading the utilities manual, key-punching JCL and control 

cards, and iterative machine runs to debug JCL and control card 
format or logic errors. OS/DITTO SYSTEM UTILITY function code 
routines prompt for keyword values, build and display the appropriate 
control cards, ask for authorization to execute (or cancel if desired) 
and then LINK to the appropriate SYSTEM UTILITY. 


UTILITY functions supported are Partitioned Data Set member(s) print 
Or punch, DASD volume Dump or Restore, List available free space 

On a DASD volume, List the VTOC (all options supported), List a 
catalog, List the directory of a PDS, Catalog or Uncatalog a 

Data Set name, Scratch a VTOC or Data Set or Member, Rename a Data 
set or Member. 


DASD Device characteristics are now obtained from the System Control 
Program DEVICE TYPE macro. This allows new DASD Device support for 

DITTO EXCP disk routines to be provided by the SCP instead of hand- 

Coded program changes. 


In a DB/DC environment after a system failure occurs, the need 
arises to somehow CLOSE the LOG TAPE before REWINDing it and 
removing it from the drive. Often the awkward procedure of mani- 
pulating the LOG TAPE drives control unit Customer Engineer panel 
in order to write a tape mark is attempted by system operators. 
This elaborate process is time-consuming and delays restarting 
the system. A special DITTOLOG procedure is provided to write a 
tape mark (without rewinding) on the LOG TAPE drive after Re-IPL. 
The procedure can be integrated into installation DB/DC restart 
procedures. This allows faster restarts. Also the END of FILE 
indicator on the LOG TAPE avoids data check read errors or reading 
off the End of Reel by Log Tape Terminator/Recovery programs 

that must read LOG TAPES. 


Card to QSAM (re-sequencing is optional), QSAM to Card, QSAM to 
printer, and QSAM to QSAM functions are provided. The Device 
Independence, default buffering, and multiple Record Format support 
features of these QSAM functions offer the advantages of DITTO 
support for Standard Label Tape (Input or output), Variable Blocked 
Record Formats (DASD or Tape), and buffered Tape to Tape copying. 
In addition, a Partitioned Data Set member may be selectively 
listed in DITTO print format. A message summarizing the number 

Of logical records read and written is issued to the user. 


VSAM Key-~Sequence and Entry-Sequence Data Set selective print 
functions are provided in the familiar DITTO format. This 

format saves eye strain and confusion by using a vertical character 
and hexadecimal orientation in addition to a byte position counter 
Scale. This allows a user to easily relate a character to its 
hexadecimal equivalent and determine its exact byte count position 
in the record. The DITTO print format is thus easier to read 

than the core dump print formats supplied by system utilities. 


The Tape Record Scan and Disk Record Scan functions are executable 
in the jobstream (without operator intervention). New control 

card parameters and a continuation card capability is provided to 
allow programmers to eliminate asking operators to initiate these 
functions from the console. Also, more selective jobstream 

tape printing and copying can be done by scanning the record desired 
before initiating prints and copies. 


An optional TSO terminal interface is provided for operating 
"TSO/DITTO" in console operator mode from a TSO terminal. This 

allows TSO programmers to use DITTO facilities to selectively list 
large data sets, alter or scan data sets (in character or hexadecimal), 
and use DITTO tape control commands. This interface is an independent 
installation option if desired. 


OS/DITTO EXTENSIONS source code has been re-structured to allow 
easier user additions. 5798-ARD Source Statement Sequence numbers 
have not been changed. 


The disk address operand has been eliminated from console disk 
functions thus reducing the number of required operator replies. 
Function code Disk Record Scan in console mode allows record size 
and scan-type to be entered as string parameters. Also, the disk 
record scanned for is printed when found. These features make 
Disk Record Scan faster to invoke and can save issuing a print command. 


The documentation printout function has been updated to instruct 
the user on the use of the new functions. In addition, the new 
control card functions have improved control card error diagnostics. 


Card Functions 
DITTO provides seven card utility functions. These functions are: 
= Card to Punch 


= Card to Punch with resequencing for Job Control decks, 
Assembler Language, COBOL, RPG, and FORTRAN Source 
decks. 


- Card to Printer 


- Card to Printer in character and vertical hexadecimal 
format (for listing object decks, etc.) 


= Card to Tape blocked 1 to 400 card images 
= Card to Tape with resequencing 
= Tape to Card 


DITTO also has the ability to recognize /+ as the end of card 
input data following a $$DITTO control card in jobstream mode. 
This allows the user to submit multiple $$DITTO control card 
Operations in a given job step. The End-of-File Key is recog- 
nized as end of card input during console operation. Entire 
jobstreams with embedded /* cards may be listed or reproduced 
by using the DATA and DLM parameters on the SYSIN DD card; 
e.g., //SYSIN DD DATA, DLM=AA followed by the job stream and an 
AA delimiter card. Card punch output may be interpreted if 
the user's system is configured with the 3525 punch interpret 
feature. 


Card input devices and card punch devices supported are the same 
as those supported by QSAM. Tape devices supported are the 2400 
series, the 2420 series, and the 3420 series tape units. Tape may 
also be substituted for a card input device, a card punch device, 
or as SYSPRINT. 


Tape Functions 


DITTO provides thirteen tape utility functions and eight tape control 
functions. These functions are: 


- Six Tape to Printer functions providing two print 
formats for fixed blocked tape records, fixed 
unblocked tape records, and variable length blocked 
or unblocked logical records. 


- Tape Record Load function to alter records resident 
on tape. 


~ Tape Record Scan function to locate a specified 
logical record on a tape file. 


- Initialize Tape. 


- Tape to Tape Copy for multiple files and multiple 
output reels. 


- Tape to Tape Copy with reblocking of logical records. 
- Eight Tape Control functions provide the ability to 
forward or back space past multiple records or files, 
to rewind, and to erase entire data set security tapes. 
The erase tape function is valid for 3420 tape com- 
ponents only. 
DITTO additionally provides a tape error correction routine. This 
routine will allow the operator to copy a tape with parity or block 
length errors. User options are provided to correct records in 
error before copying onto an output file. 
Disk Functions 
DITTO provides ten disk utility functions. These functions are: 
- Data Set Extent Display 


= Disk Character Print (no deblocking) 


- Disk Character Print Deblocked into logical records 


- Disk Character and Hexadecimal Print (no deblocking) 


- Disk Character and Hexadecimal Print deblocked into 
logical records 


- Disk Record Scan 


- Disk Print and Record Scan for Split Cylinder file 
organizations 


- Write Disk End-of-File Record 
- Disk Record Load 
- Alter Disk Volume Serial Number 


Disk Devices supported are 2311, 2314, 3330 (Models I and II), 

3340 (Models 35 and 70), and 2305 (Models 1 and 2). Support for 
additional disk devices is facilitated by a "Disk Device Character- 
istics Table". This allows the user to provide entries which should, 
in most cases, enable support for the desired device. 


OS/DITTO EXTENSIONS automatically fill in an additional DASD character- 
istics table entry by issuing a DEVICE Tape macro for the DD name 
DISKIN. This will make new DASD devices automatically supported 

by the System Control Program. 


All disk utilities function within a Data Set protected environment and 
require Data Definition statements. In console mode of operation, 

the user must provide the physical hardware address, the data set 

name, and the volume serial number in order to access the data set. 
Printed output reflects the physical and logical addresses and 

file characteristics of the device. 


Multiple extent data sets may be printed from the console or by 
control cards. In console mode, use the DSE function to determine 
valid, absolute CCCHH (BEGIN and END). When END of Extent is 
reached, the next extent is made available until all are exhausted. 
In control card mode, CCCHH is relative to the first CCCHH of the 
data set. When END of Extent is reached, the next extent is made 
available. In both modes the last extent remains available for 
subsequent disk functions. The End of Extent message is also issued 
for Out of Extent conditions when the user specifies an excessive 
BEGIN=CCCHH. 


In control card mode the "BEGIN=CCCHH" will be added to the data set 
CCCHH extent start address. This allows the user to begin printing 
at any track within the data set. This also holds true for data sets 
not allocated on a full cylinder boundary. The HH portion of 
"BEGIN=CCCHH" is added to the data set HH. If the result exceeds 
Head Maximum for the device, the CCC portion of "BEGIN=CCCHH" is in- 
cremented by 1 and the HH is decremented by Head Maximum. 


The description of the new function codes for OS/DITTO EXTENSIONS 
is as follows: 


SYSTEM UTILITY FUNCTIONS 


PRT PRINT ONE OR ALL MEMBERS OF A PDS 

PUN PUNCH ONE OR ALL MEMBERS OF A PDS 

DUM DUMP A DASD VOLUME TO TAPE 

RES RESTORE A DUMP TAPE TO DASD 

LS LIST SPACE AVAILABLE ON A DASD VOLUME 
LV LISTVTOC OF A DASD VOLUME 

LC LIST CATALOG (SYSCTLG - IPLVOL OR CVOL) 
LP LIST PDS DIRECTORY 

CAT CATALOG DSNAME 

UNC UNCATALOG DSNAME 

SCR SCRATCH VTOC, DATA SET, OR MEMBER OF A PDS 
REN RENAME DATA SET OR MEMBER 


QSAM (CARD, DASD, AND SL/BLP TAPE) FUNCTIONS 

CQ CARD TO QSAM 

CQs CARD TO QSAM WITH SEQ. NUMBERS AND DECK NAME 
Qc QSAM TO CARD (USE FUNC=I FOR 3525 INTERPRET) 
QQ QSAM TO QSAM (COMPATIBLE RECFM'S ASSUMED) 


QSAM/VSAM PRINT FUNCTIONS 


QP QSAM TO PRINTER DEBLOCKED IN CHAR. FORMAT 
QD QSAM TO PRINTER DEBLOCKED IN CHAR. AND HEX DUMP 
VP VSAM TO PRINTER DEBLOCKED IN CHAR. FORMAT 


VD VSAM TO PRINTER DEBLOCKED IN CHAR. AND HEX DUMP 


MISCELLANEOUS FUNCTIONS 


TRS CONTROL CARD - TAPE RECORD SCAN 
DRS CONTROL CARD - DISK RECORD SCAN (KEY/DATA/EOF) 


ean S DITTOLOG - WRITE TAPE MARK ON DB/DC LOG TAPE WITHOUT 


REWIND AFTER SYSTEM FAILURE (SEE COMMENT CARDS 
IN DITTOLOG PROC FOR OPERATIONAL DETAILS) 


=9= 


SYSTEM CONFIGURATION 


The program is designed for any System 360/370 capable of supporting 
OS, PCP, MFT, MVT, VS1 and VS2 (R1, R2, and R3). Devices supported 
are 2311, 2314, 3330-1, 3330-11, 3340-35, 3340-70, 2305-1 and 

2305-2 disk subsystems, 2400, 2420, and 3420 tape subsystems, 1403, 
or 3211 printer systems and all QSAM supported card input/output 
subsystems. 


The card punch and print option requires the 3525 card punch with 
either the multiline card print feature (#5272) or the two line 
card print feature (#8338). 


The minimum S/360 or S/370 configuration required is an OS system 
and a 1403 or 3211 printer with at least 132 print positions. 


The program as distributed requires a 38K OS partition (the documenta- 
tion overlay requires an additional 36K when being executed). 


PROGRAMMING SYSTEMS 


The program consists of one core resident module (OS/DITTO) and 
six OS load modules. Storage required for these load modules is 
discussed in the Systems Guide. 


OS/DITTO requires a S/360 or S/370 OS or VS system with a minimum 
partition size of 26K (when only a 2K disk/tape buffer is specified). 

A 74K partition is required to utilize the program generated documenta- 
tion function. 


The program is written in Assembler Language. It was assembled 
under OS/VS Assembler (5741-SC1-03) Release 1.0 and tested under the 
following systems: 


Te OS/MFT Release 21.0 


2% OS/MVT Release 20.7 with HASP 

3. OS/VS1 Release 1.0, 2.0, 3,0, and 4.0 

Wy OS/VS2 Release 1.0, 1.6, and 1.7 (with HASP) 
5. OS/MFT Release 21.6 


6. OS/VS2 Release 2.0, and 3.0 (with JES2) 
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PROGRAM DESCRIPTION 


For detailed formats and operating tips refer to the "XXX" documenta- 
tion printout in Appendix A in the back of this manual. 


CARD UTILITIES 
Card to Card 


Two card to punch options are available. CC is an 80/80 reproduction 
of the input cards. CCS is a card-to-card copy with sequence numbers 
and deck identification name added. Three decktypes are available. 


ee DECKTYPE=COB is used to sequence and name COBOL 
source decks. Sequence numbers will be placed in 
CC 1-6 and an 8 position deckname placed in CC 73-80. 


- DECKTYPE=RPG is used for RPG source decks. Sequence 
numbers will be placed in CC 1-5 and a 6 position 
deckname placed in CC 75-80. 


_ DECKTYPE=BAL is used for Assembler and FORTRAN source 
decks, Job Control decks, etc. Sequence numbers will 
be placed in CC 76-80 and a 3 position deckname placed 
in CC 73-75. 


Decknames will be left-justified and padded with blanks if less 
than the required length. /* Cards may be interspersed in the 
input data (see Operating Suggestions). Punched output may be 
automatically interpreted (see Operating Suggestions). Card count 
statistics will be printed on SYSPRINT for control card operation, 
and on the Console for console operation. 


Card to Printer 


Cards may be listed on SYSPRINT in either character or character 
and vertical hex format. The vertical hex format is useful for 
listing object or binary decks. Job Control cards including 

/* statements may be interspersed in the input data (see Operating 
Suggestions). Card count statistics will be printed on SYSPRINT 
for control card operation, and on the console for console 
Operation. 


apts 


Card to Tape 


Card image to tape allows the user to specify a tape blocking 
factor of 1 to 400. Job control cards, including /* cards, may 
be interspersed in the input data (see Operating Suggestions). 
A tape mark will be written after the last card block on the 
tape file. Card count statistics will be printed on SYSPRINT 
for control card operation, and on the console for console 
Operation. 


Card to Tape with Deckname and Sequencing 


This function will transfer source cards to tape with a deck- 
name and card resequencing added. The function combines the 
Capabilities of CCS and card to tape. Options are identical to 
CCS (see Card to Card). Card count statistics will be printed 
On SYSPRINT for control card operation, and on the console for 
console operation. 


Tape to Card 


Tape to card will transfer blocked or unblocked 80 character 
logical input records to SYSPUNCH. Leading tape marks are not 
bypassed if present. If the input tape record is not a multiple 

Of 80 bytes or equal to 81 byte records, the function will 
terminate. If the tape is unblocked with 81 character records, 
DITTO will assume the first data position to be "carriage con- 

trol" and will punch positions 2-81 into the output card. Punched 
Output may be automatically interpreted (see Operating Suggestions). 
Card count statistics will be printed on SYSPRINT for control 

card operation, and on the console for console operation. 


OS/DITTO EXTENSIONS QSAM AND VSAM UTILITIES 
Card to QSAM 


Card image to QSAM (tape or DASD) provides a way of creating 

Standard Label tape and DASD data sets from card input. Two 
cataloged procedures are provided. DITTOCQT allocates TAPE and 
DITTOCQD allocates SYSDA. If neither RECFM, BLKSIZE, nor LRECL 

are specified on the QSAMOUT DCB, the function recognizes this 
condition via the READ JFCB macro and forces RECFM=FBS, BLKSIZE=3120, 
and LRECL=80. To override these defaults submit all three parameters. 
A card count message is issued to the user. 


i De 


Card to QSAM with Deckname and Sequencing 


This function transfers source or data cards to the QSAMOUT DCB 
with Deckname and card resequencing added. The Options are 
identical to Card to Card with Sequencing. A card count message 
is issued to the user. 


QSAM to Card 


This function transfers 80 byte logical records to SYSPUNCH. QSAM 
to Card provides DITTO support for Standard Label tapes and 

DASD data sets. The optional STARTAFT and NLRECS parameters allow 
selective card punching if desired. A logical records read and 
written message is issued to the user. A PDS member can also be 
punched by specifying IDSN=PDS (MEMBNAME) on the DITTOQC or 
DITTOQCI cataloged procedure. 


QSAM to QSAM 


This copy function provides a Tape to Tape (buffered), Tape to DASD, 
DASD to DASD, and DASD to Tape capability. Compatible RECORD FORMATS 
are assumed. For example, RECFM=V to RECFM=VB can be copied, but 
not RECFM=F to RECFM=V. Four cataloged procedures are provided 

for each combination (DITTOQTT, DITTOQTD, DITTOQDD, and DITTOQDT). 
The optional STARTAFT and NLRECS parameters allow selective copying 
if desired. A logical records read and written message is issued to 
the user. 


QSAM to Printer 


Two print functions provide a logical record print in either character 
or character and vertical hex Format. The optional STARTAFT and 
NLRECS parameters allow selective printing if desired. A PDS member 
may be printed by specifying IDSN='PDS (MEMBNAME)' on the DITTOQP 
Cataloged procedure. A logical records read and written message 

is issued to the user. 


VSAM to Printer 


Two print functions provide a logical record print in either character 
or character and vertical hex format. The optional STARTAFT or 
STARTKEY and NLRECS parameters allow selective printing if desired. 
The VSAMIN DD statement is opened as an ESDS and processed as such 
unless a TESTCB indicates the presence of a KSDS in which case a 
MODCB changes to KSDS processing. The STARTKEY value is left justi- 
fied and padded on the right with binary zeros. A Point macro is 
issued for the Key value to position the KSDS data Set. A logical 
records read and written message is issued to the user. 
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TAPE UTILITIES 
Tape Print 


Six printing formats are available for input tapes. Tape data may be 
printed in character format only, or in character and vertical hex 
format. Fixed length tape records may be printed as they exist or 
may be deblocked into logical records. Variable length tape record 
formats will be automatically deblocked. Block and record counts 

are printed with the associated records. The presence of tape marks 
will be indicated on the output listing. 


For control card operation, and optional NBLKS=nnnn parameter may 

be specified (see Operating Suggestions). "nnnn" specifies the 
Maximum number of physical tape record blocks to be printed. In 
console mode, the optional parameter "NRECS" may be entered to limit 
the number of blocks printed. A leading tape mark will be printed 
and the function will terminate. 


Tape Record Scan 


This function allows the user to specify a logical record size and a 
1 to 35 position scan argument for an input tape. DITTO will read 
and internally deblock input records until the desired record is 
located. At that time the desired logical record with its associated 
block number will be printed and the operation terminated. This 
function supports fixed and variable length records. 


OS/DITTO EXTENSIONS allows this function to be executed from control 
cards. The new control card parameters ARGUMENT and SCANPOS are 
used for scan data. 


Tape Record Load 


This function is used to copy and selectively alter existing tape 
records. The user need not know the exact location (block#) of the 
input tape record to be altered. 


The first portion of the Tape Record Load function locates the desired 
record. The user enters an estimated block location and the parameter 
"F" to denote copying of tape in a forward position. When the 

desired record is found, it is printed on SYSPRINT and an option 

given to alter the record. All input records prior to the record 

to be altered have been copied onto the output tape. If the printed 
record is not the desired record, the user can again enter the number 
Of blocks and direction to reposition the input and output tapes. 

If the user has gone past the desired record, a parameter of "B" 

(back) should be entered with a block count. 
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This will cause both input and output tapes to be backspaced the 
required number of blocks. This count includes the block just printed. 
When the desired record is located, the user may alter the length 
and/or data content in a manner similar to the Disk Record Load 
function. After all alterations are completed, replies of "9999" and 
"F" (9999 blocks to be copied in a forward direction) will usually 

be sufficient to finish copying the tape file. 


Initialize Tape 


Initialize tape will build 80 character volume and header labels 
using the standard OS format. The new tape volume serial number is 
Supplied by the user. Existing tape labels or data on the output 
tape is not checked before creating the new label set. 


Tape to Tape 


This function will copy from 1 to 99 tape files per volume as re- 
quested via the console. One file or a specified number of blocks 
Will be copied per control card if console operation is not being 
used. A leading tape mark will be automatically copied and will 
count as the first end of file. Block count statistics will be 
printed on SYSPRINT Operation, for each tape file copied. 


Tape to Tape Reblocked 


This function will reblock an input tape file to an output tape file. 
Input blocking factor will be determined by dividing the first input 
tape record by the user supplied logical record length. Output 
block length will be determined by multiplying the logical record 
Size by the user supplied output blocking factor. Input tape labels 
should be either copied separately or bypassed. A leading tape mark 
Will be automatically copied and will count as the first end of file. 
Logical record count statistics will be printed on SYSPRINT for 
control card operation, and on the console for console operation. 


Tape Control 


Eight tape control functions are available with console communica- 
tions. Seven tape control functions are available with control 

Card operations. These control functions are: write tape mark; 
rewind tape; rewind and unload tape; forward space or backspace 
file; forward space or backspace records; and erase tape. The 

erase tape function will write a tape mark, erase the remaining tape 
data through the end of reel, and rewind the tape to its original 
position. The erase tape function is valid for 3420 series tape 
units only. 
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DISK UTILITIES 
Data Set Extent Display 


This function must be used in colsole mode to determine valid CCCHH 
within data set extent. Absolute CCCHH Begin and End are printed on 
the console. 


Disk Print 


These functions provide a disk print in éither character or character 
and vertical hex format within specified limits. Disk records are 
"separated" into key and data format and printed with their associated 
cylinder, head, and record addresses. When a defective track is 
detected, the asigned alternate track with its respective data 

is printed. This provides a sequential listing of the disk file in 
"logical" sequence. 


Four Disk to Printer formats are available: Disk Print and Disk Dump 
unblocked and Disk Print and Disk Dump with Deblocking. The unblocked 
format lists the actual records as they exist on the file. The 
Deblock function allows the user to submit a logical record size. 
This size parameter should be equivalent to the actual logical record 
length only, and should not include separate key length. Imbedded 
keys should, however, be included. The Deblock function lists the 
record key and then deblocks the data portion of the record into 
logical lengths. This provides a more easily used listing of large 
physical record files. The Dump option provides character and hex. 
The Print option provides character only. 


Disk Record Load 


This function will alter the contents of the key and/or data portion 
of an existing Disk Record. After the required disk unit and 

record addresses have been entered, the record will be retrieved 

and "separated" into key and data format and printed in SYSPRINT. 


At this point, DITTO will request the number of bytes to be changed 

and the field type (Key or Data portion of the record) to be altered. 
After specifying these parameters, a starting position within the 

file will be requested. This starting position is based on using the 
first position of the key or data as position "0001". The user can 
verify this position by referencing the printout of the record 

and its associated scale on SYSPRINT. Data may be entered via the 
console in character (1 character per byte of change), or hexadecimal 
(2 characters per byte of change data). Valid hexadecimal "characters" 
are 0-9 and A through F. 
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After all alterations to the record in core have been made, the 
altered record will again be printed on SYSPRINT and a message 
issued "ARE CHANGES COMPLETE - Y or N". <A response of "N" 

(No) will allow the user to re-enter the alter routine. A response 
of "Y" (Yes) will rewrite the record onto disk. 


Disk Record Scan 


Disk Record Scan provides the capability of scanning a disk file 
and recording the locations of all records which match a given 
scan argument. Three (3) scan argument types are available. 


"Scan on Key" allows the user to scan for a match on any portion 
of the disk record key field. A 1 to 35 position scan argument, 
and its associated starting position within the key field, are 
entered via the console. Beginning and ending disk limits are 
also entered. DITTO will scan the specified disk area and log 
all "hits" in the form of cylinder, head and record numbers on 
the console. 


"Scan on Data" provides a similar capability for the data portion 
of disk records. A logical record length must be specified to 
allow internal deblocking for scanning blocked files. 


"Scan on EOF" will log all End of File record locations. Data 
entry for "EOF" is not required. 


Scan areas can be restricted by using the split cylinder option 
(see Split Cylinder Disk Operations at end of Disk UTILITIES). 
This option allows the user to limit the scan to selected tracks 
of each cylinder. 


OS/DITTO EXTENSIONS allows this function to be executed from control 
cards. The new control card parameters ARGUMENT, SCANPOS, and 
SCANTYPE are used for scan data. The record found is printed on 
SYSPRINT in console and control card mode. 


Write Disk End-of-File Record 

This function will retrieve any existing Disk Record and rewrite 

the record as an end-of-file record (Key and data length of zero). 

The user must supply the cylinder, head, and record address of 

the record to be altered. 

Disk Identification Change 

This function will allow the user to enter on the console a new volume 


serial number. The old volume serial number and the new volume serial 
number entered are printed on the console after the function completes. 
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Split Cylinder Disk Organizations 


Split Cylinder data file organizations are supported by DITTO for 
the Disk Print unblocked (DP), Disk Print (Deblocked (DPD), Disk 
Dump Unblocked (DD), Disk Dump Deblocked (DDD), and the Disk Record 
Scan (DRS) functions. Split cylinder operations are denoted by re- 
placing the first D in the above function codes with an S. For 
these split cylinder operations, the beginning and ending head 
addresses will determine the lower and upper head boundaries for 
the function. 


MISCELLANEOUS UTILITIES 
List DITTO Functions 


The operation provides a list of functions, control card formats, 
console procedures, and parameter requirements. It can be used as 
a reference document for operators and programmers. 


End of Job 


In console mode the user must issue the function code "EOF" to end 
DITTO execution. In jobstream mode EOJ is valid and may be issued 
in the last control card. This is not necessary as the same 
End-of-Job routine will be executed when an End-of-File condition 
on the SYSIN data set is encountered. 


OS/DITTO EXTENSIONS SYSTEM UTILITY FUNCTIONS 
Print or Punch One or All Members of a PDS 


This function invokes IEBPTPCH for Partitioned Data Set support. 
It may be used from the console or control cards. The cataloged 
procedure DITTOPDS supports both printing and punching. 


Dump or Restore a DASD Volume 


IEHDASDR is invoked from the console by starting either the DITTODUM 
Or DITTORES procedure. Refer to the XXX listing in Appendix A for 
detailed operating directions. The user is prompted for appropriate 
key word values. 


List Space Available on a DASD Volume 


The List Space SVC is issued to obtain the total number of free 
cylinders, tracks, extents, and the largest contiguous free area 
in cylinders and tracks. This data is formatted and displayed 
On the console. 
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TEHLIST Functions (LISTVTOC, LISTCTLG, and LISTPDS) 


This function prompts the console user for the key word values and 
options desired. An IEHLIST control card is built and displayed 

to the user. The user can then reply with 'E' to execute the con- 
trol card or 'U' to cancel the function. IEHLIST is linked to and 
fed the control cards on a temporary disk data set. Upon com- 
pletion, the IEHLIST return code is displayed to the user. The 
cataloged procedure DITTOUTL is used to allocate the desired DASD 
volume. A suggested default value to be installed in the procedure 
would be the systems’ residence volume or some other most frequently 
used volume. All options of LISTVTOC, LISTCTLG and LISTPDS are 
supported. 


IEHPROGM Functions (CATALOG, UNCATALOG, SCRATCH, and RENAME) 


These functions operate similarly to the IEHLIST functions. All 
options are supported. The SCRATCHVTOC function requires authoriza- 
tion according to the rules of Authorized Program Facility. 


WRITE TAPE MARK ON DB/DC LOGTAPE WITHOUT REWIND AFTER SYSTEM FAILURE 
(OS/DITTO EXTENSIONS) 


This function operates independently from OS/DITTO because it re- 
quires KEY=0 operation. There is no function code in OS/DITTO for 
this feature. The facility is invoked by starting OS/DITTO cataloged 
procedure DITTOLOG. Detailed operating instructions are provided 

in the comment cards in the procedure. See Appendix C (Job 'ADDPROC') 
for a listing of the DITTOLOG procedure. The requirements for 
operating in KEY=0 are discussed in the installation instructions. 

If KEY=0 status is not achieved the program ABENDS with a System 
Completion Code of 300. 


UTILITY FUNCTION CODES 


See Appendix A for details on the various function utility codes. The 
OS/DITTO EXTENSIONS are indicated as such at the top of each page. 


TSO TERMINAL INTERFACE 


This optional TSO interface consists essentially of changing the 
WTOR and WTO sub-routines to TPUT/TGET and TPUT SVC sub-routines. 
This allows a TSO terminal to operate OS/DITTO in console mode. The 
DITTO print formats have been shortened (80 character maximum 
length) and left justified for better use of terminal print/display 
maximums. 
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To invoke TSO/DITTO for DDname DISKIN functions enter the 
following commands: 


ALLOC FI(SYSPRINT) DA(*) 
ALLOC FI(DISKIN) DA ('CATLD.OS.DATA.SET') 
CALL 'SYS1. LINKLIB (TSODITTO) ' 


Enter DITTO Disk function DSE when the message 'DITTO 
FUNCTION ?' is received to obtain CCCHH BEGIN and END values. 


DITTO functions TRL, DRS, and DRL work on a physical blocksize 
basis. To avoid excessive terminal output, it may be desirable 

to re-block files to a small blocksize (or perhaps unblocked) 
before using these functions from a terminal. Another alternative 
would be to temporarily allocate SYSPRINT as a NULLFILE if 

viewing SYSPRINT output at the terminal is unnecessary. 


It is not recommended that function XXX be invoked from 
the terminal. It has not been optimized for TSO terminal 
printing or display. 


DDnames SYSPRINT, SYSIN, DISKIN, TAPEIN, TAPEOUT, QSAMIN, 
QSAMOUT, VSAMIN, DITTODD1, DITIN, DITPRINT, SYSUT2 and 

SYSUT1 can be allocated as needed for the particular function 
to be used. Refer to the Cataloged Procedures and XXX to 
correlate a function with DDname. 


If tapes are to be allocated, use a special logon PROC that 

contains DD statements for TAPEIN and/or TAPEOUT. Under MVS you 
may dynamically allocate a tape drive by updating the User Attribute 
Data Set with the MOUNT capability and an allocation UNITNAME of 
SYSSQ. The tape Data Set Name must also be cataloged. An allocate 
command can then be issued: 


ALLOC FI(TAPEIN) DA('TAPE DATA') LAB(BLP) SHR 


Coordinate with the system operator for the drive unit address re- 
quested in DITTO Tape functions. 
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GENERAL INSTALLATION INSTRUCTIONS (5798-CDA) 


The installation of 5798-CDA assumes that 5798-ARD has been in- 
Stalled. 5798-ARD Modules OS/DITTO and DITTOXXX are replaced. 
5798-ARD Module, DITTODID and all cataloged procedures are left 
intact. If 5798-ARD is being installed, run only Jobs ADDREPL, 
DIDMFMVT or DIDVS1 #2, and HASP environment job DITTORDI. 


PID TAPE DESCRIPTION 


The program source material is distributed on magnetic tape 
(no leading Tape Mark). The tape contains 10 files. Each file 
consists of the following jobs (CLASS=G): 


FILE # JOB NAME JOB DESCRIPTION AND PURPOSE 


1. INS#LIB IEHPROGM and IEFBR14 to scratch and re- 
allocate SYS1. DITTOLIB. 


INS#PROC IEBUPDTE to SYS1. PROCLIB to provide a 
means of controlling the DATA SETS 
and UNITNAMES used by the installation 
jobs. 


ADDPROC IEBUPDTE to install new DITTO cataloged 
procedures. These PROCS are in addition to 
5798-ARD PROCS. 


2% DITTOMAC IEBUPDTE to establish an ASSEMBLER copy library 
on the same volume as SYS1. DITTOLIB. It will be 
concatenated to MACLIB. 


ARDUPDTE IEBUPDTE to Version 2 Modification 0 PID TAPE for 
5798-ARD. A new source tape (CDAO001) is 
created, assembled, and Link Edited (NCAL) 
into SYS1. DITTOLIB. 


3% WTORSUB WTOR Sub-routine ) 

) These jobs are 
WTOSUB WTO Sub-routine ) 

) Assemblies and 
CNCDSUB Control Card Sub-routine ) 

) LINK EDITS (NCAL) 
FUNCSUB Function Code Sub-routine  ) 

) into SYS1. DITTOLI 
DISKOPEN DEVICE TYPE and OPEN Sub- _) 

) 


routine for DASD 
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GENERAL INSTALLATION INSTRUCTIONS (5798-CDA) 


FILE # 


JOB NAME 


CDRDSUB 
CDPNSUB 
PRNTSUB 


HEADING 


DITTOPGM 
DITTOLST 
DITTOPDS 
DITTODAS 


DITTOOV 


DITTOLOG 


DITTOXXX 


DITTOE11 


DITTOE12 


DITTOE13 


DITTOE14 


JOB DESCRIPTION AND PURPOSE 
Card Read Sub-routine 

Card Punch Sub-routine 
Print Sub-routine 


OS/DITTO Heading Page 
Print Sub-routine 


IEHPROGM Interface routines) 
) 
TEHLIST Interface routines ) 
) 
TEBPTPCH Interface routines) 


) 
TEHDASDR Interface routines) 


QSAM and VSAM function 
routines 


DB/DC LOGTAPE CLOSE routine 
is Assembled and Link 
Edited (AC=1) into SYS1. 
LINKLIB 


'XXX' documentation list- 
ing module 


'"XXX' for Extensions 
Page 1 


'xxxX' for Extensions 
Page 2 


"XXX' for Extensions 
Page 3 


'"XxXX' for Extensions 
Page 4 
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(Cont'd) 


These jobs 
Assemblies 
LINK EDITS 


into SYS1. 


are 
and 
(NCAL) 


DITTOLIB. 


GENERAL INSTALLATION INSTRUCTIONS (5798-CDA) (Cont'd) 


FILE # 


6. 


JOB NAME 


DITTOLE 


PGMLE 
LSTLE 
PDSLE 
DASLE 
QVLE 


XXXLE 


SAMPXXX 
to 
SAMPDRS 


TSOUPDTE 


TSOFUNC 
TSOPRNT 
TSOWTOR 
TSOWTO 


TSOQV 


JOB DESCRIPTION AND PURPOSE 


OSDITTO ) Module OSDITTO will replace 5798-ARD 
) module OSDITTO 

DITTOPGM ) 

DITTOLST These Load modules are Link Edited 

DITTOPDS (AC=1) into SYS1. LINKLIB for 

DITTODAS execution. 

DITTOQV 

DITTOXXX ) Module DITTOXXX will replace 


) 5798-ARD module DITTOXXX. 


This jobstream consists of 20 sample jobs 
each demonstrating the use of OS/DITTO 
EXTENSIONS new function control card 
formats. 


IEBUPDTE to the new source tape (CDA001) is 
created by job ARDUPDTE. 


TSO changes are made to create a second new 
source tape (TSO001). 


The TSO tape is then assembled and Link Edited 
(NCAL) into SYS1. DITTOLIB. 
Function Code Sub-routine ) 
) 
Print Sub-routine ) These jobs are 

) Assemblies and 
TPUT and TGET Sub-routine ) Link Edits (NCAL) 

) into SYS1. DITTOLIB 
TPUT Sub-routine ) Necessary changes 
) for TSODITTO are 
) contained in these 
) modules. 


QSAM and VSAM function 
routines 
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GENERAL INSTALLATION INSTRUCTIONS (5798-CDA) 


FILE # 


10. 


JOB NAME 


TSODITLE 
TSOPGMLE 
TSOLSTLE 
TSOPDSLE 
TSODASLE 
TSOQVLE 


TSOXXXLE 


TSODITTO 
DITSOPGM 
DITSOLST 
DITSOPDS 
DITSODAS 
DITSOQV 


DITSOXXX 


) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 


(Cont'd) 


JOB DESCRIPTION AND PURPOSE 


These modules are Link 
Edited (AC=1) into SYS1. 


LINKLIB for execution. 


Each Jobstream file may be read in for execution by issuing an 


OS START Reader command as follows: 


Vary the 


S RDR. P2, 


280, 


DCB= (BLKSIZE=1600, RECFM=FB, 


LRECL=80, BUFL=1600, BUFNO=1), LABEL=(n,BLP) 


n value in LABEL=(n,BLP) from 1 to 10 to read in the 


appropriate file. 
as a Resident Reader Partition to support blocked input. 


When installing under OS/MFT, P2 must be defined 


The modules Link Edited in File 6 and File 10 must be in an Author- 


ized Library for VS1, 
by MFT and MFT Linkage Editors. 
controlled by INS#PROC member DITTODSR. 


SVS, and MVS. 


The AC=1 parm field is ignored 


The authorized library used is 


VS1 Release 4 Authorization 


requires OS/DITTO in the Program Properties Table (See Appendix D). 


In addition, 
MFT, MVT, VS1, 


the DITTOLOG module in File 4 must run KEY=0. For 
and SVS this requires that the module name DITTOLOG 


be placed in the first section of the LINK TABLE (member IEEVLNKT) 


of SYS1. 


LINKLIB or SYS1. 


LPALIB). 


For MVS an entry for DITTOLOG 


is required in the PROGRAM PROPERTIES TABLE (csect IEFSDPPT of 


scheduler module IEFSD060 in SYS1. 


LPALIB). The easiest way to 


satisfy this requirement is to SUPERZAP in DITTOLOG over presently 
unused entries or dummy entries maintained by your installation 

for this purpose. 
KEY=0 when started from the console. 


DITTOLOG is the only module that requires 


Consult the release documentation for the particular System Control 
Program being used in your installation to determine exact procedures 


for Authorization and KEY=0 for Started Tasks. 


Refer to Appendix D 


for a profile of these requirements by operating system. 


All jobstreams should be run single thread to avoid SYSLMOD Link 
Edit conflicts. 
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DETAILED INSTALLATION INSTRUCTIONS 
FOR 
OS/DITTO EXTENSIONS (5798-CDA) 


Review the jobs contained in File 1 (see Appendix C) for 
these considerations: 


INS #LIB Allocates data set SYS1. DITTOLIB on VOL=REF=SYS.1. 
LINKLIB. SPACE required is approximately four 
cylinders of 2314. SPACE parameter is coded 
SPACE=(Cyl, (2, 1, 10) ). SYS1. DITTOLIB is 
CATALOGED. 


INS#PROC Provides a PROC to control Data Sets Referenced 
| (member DITTODSR) by the Assemblies and Link 
Edits. This allows easy control (from one place) 
of where NCAL and Executable Load Modules are 
Link Edited. All Link Edit jobs use this PROC 
in the first step and refer back to it for SYSLMOD. 
Job ADDPROC uses refer back for the SYSUT2 output. 


A second PROC is included for use by jobs ARDUPDTE and 
TSOUPDTE. The tape drive default unitname is 2400. 
This PROC (member DITUPDTE) will be used during the 
error correction period to update the source for 
OSDITTO and TSODITTO modules. 


ADDPROC This job adds the new OS/DITTO PROCS to SYS1. PROCLIB. 
The tape drive unitname default is TAPE. DASD drives 
are default allocated by SYSDA. Distribution Region 
sizes are 100K to allow adequate room for SYSTEM 
UTILITIES to be linked in and for QSAM buffers. A 
smaller Region size could be used depending on the 
size generated for OS UTILITIES and QSAM blksizes used. 


Make changes to File 1 jobs if needed, then run them as prepara- 
tory steps for Files 2 through 10. Verify successful completion 
before proceeding. 


Run File 2 jobs DITTOMAC and ARDUPDTE. DITTOMAC copies the DCB 


parameters from SYS1. MACLIB to allow concatenation to SYS1. 
DITTOMAC during Assemblies. Most Assemblies will copy members 
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DETAILED INSTALLATION INSTRUCTIONS FOR 
OS/DITTO EXTENSIONS (5798-CDA) (Cont'd) 


DITTODS1 and DITTODS2. The 'XXX' EXTENSION modules will copy 
DITTOXE1. ARDUPDTE will call for VOL=SER=ARDTAP. This must 

be the PID tape for OS/DITTO 5798-ARD Version 2, Modifica- 

tion 0. Another version may not complete IEBUPDTE success- 
fully. SECOM maintenance to Version 2, Modification 0, 

may be present. It is included in the CHANGE stream. An 
output tape VOL=SER=CDA001 is called for. This tape contains 
the source for OS/DITTO EXTENSIONS and should be retained 

for future maintenance. Check Assembly for Condition Code zero. 


4. Now that PROC DITTODSR and Data Sets SYS1. DITTOLIB and SYS1. 
DITTOMAC are established the installation of OS/DITTO EXTEN- 
SIONS is ready for completion. Simply run all the Assemblies 
and Link Edits contained in Files 3 through 6 in single thread 
fashion via a single CLASS=G INITIATOR. 


De Review Assembly Condition Codes for zero. NCAL Link Edits 
will be Condition Code zero or four. Final AC=1 Link Edits 
into SYS1. LINKLIB should be Condition Code zero. 


6. Take the necessary steps to allow the DITTOLOG module to run 
KEY=0 when started from the console. If the use of this 
facility is not antiticpated do not bother. The PROC DITTOLOG 
executes the module DITTOLOG and is totally separate from OS/DITTO 
PROCS and modules. 


os To verify proper installation the Sample Jobstream may be run. 
In particular, the first job should be run to obtain an 'XXxX' 
listing which documents the new OS/DITTO EXTENSION function 
codes, control card formats, cataloged procedures, and console 
Operation using string parameters. 
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INSTALLATION INSTRUCTIONS FOR TSO/DITTO 
(TSO TERMINAL INTERFACE TO OS/DITTO) 


Be Run the job contained in File 8 (TSOUPDTE). This job will 
call for input tape VOL=SER=CDA001 (created by Job ARDUPDTE). 
Output tape VOL=SER=TSO001 is called for. This tape contains 
the source for TSODITTO and should be retained for future 
maintenance. 


ae The jobs in File 9 and 10 may now be run to complete the 
installation of TSODITTO. Review the Assemblies for Condition 
Code Zero. NCAL Link Edits will be Condition Code zero or 
four. Final AC=1 Link Edits into SYS1. LINKLIB will be Condi- 
tion Code zero. 


3 To verify the installation of TSODITTO: 
a. LOGON and ALLOCATE DDnames and Data Sets as needed. 
- SYSPRINT to the Terminal 


- TAPEIN, TAPEOUT, DISKIN, QSAMIN, QSAMOUT, and 
VSAMIN to drives/data sets. 


b. CALL 'SYS1. LINKLIB (TSODITTO) ' 


c. Issue function codes desired as if operating in console 
mode DITTO. 


4, No Command Procedures are distributed. It will be desirable 
to build those that would be convenient for installation use 
of TSODITTO functions. Another possibility would be to pro- 
vide a special LOGON procedure that allocates TAPE drives or 
Data Sets most frequently used. 


SAMPLE JOBSTREAM 


File Number 7 contains sample jobs showing how to use OS/DITTO 
EXTENSIONS from control cards. The jobstream contains card data 

to build files. Review for JCL sensitive items such as the tape 
unit parameter of 2400 and a DASD Unit of SYSDA. Job SAMPQCI 

asks for SYSPUNCH online at address 007. Job SAMPQP160 will request 
the PID TAPE as input. Job SAMPVPEK asks for VOL=SER of 'STEVEB' 
and contains VSAM AMS control cards that refer to this volume. 

Job SAMPTRS will use the PID TAPE as input. Job SAMPTRSV will 

have to be changed to scan for a valid data field on a variable 
blocked tape provided by your installation. 
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OPERATING INSTRUCTIONS 


CONTROL CARD OPERATION 


If the user wishes to remove the decision requirements from 
the console operator, he may prepare control cards and submit 
his task in a normal Jobstream environment. 


To denote control card operation, the user must submit on 
an Exec card a PARM='JOBSTREAM' parameter. DITTO will test 
the PARM field to determine whether control card or console 
operation is desired. 


Most required control card information can be contained on one 
card. A control card may be continued by a trailing comma and 
a non-blank character in Column 72. There is no limit to the 
number of continuations. For details see Appendix A and the control 
card format section of the XXX Documentation listing. The con- 
tinued card must begin with $$DITTO in card column one. Each 
control card set (if continuations exist) is treated as a new 
Operation. The control card format is free form using keyword 
parameters. At least one blank must separate the $$DITTO field 
and the Function Code, and at least one blank must separate the 
Function Code and the first parameter. 


cc 1-7 $$DITTO CC. -72 
-.-at least one blank... 
Function Code 
---at least one blank... 
Parameterl,.....,Parameter N(,) (X) 


Parameters are in standard keyword format. Each parameter must 
be separated with a comma with no embedded blanks. A blank 
stops the card scan. Refer to Appendix B for control card ex- 
amples of the OS/DITTO EXTENSIONS control card functions. 


Control Card Jobstream Examples 


1. //COPY TAPE JOB MSGLEVEL=1 
les EXEC PGM=OSDITTO,PARM='JOBSTREAM' 
//TAPEIN DD UNIT=2400,DISP=OLD, DSN=COPYIN, LABEL=(,BLP) 
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47 VOL=SER=INTAPE 


//TAPEOUT DD UNIT=2400,DISP=OLD,DSN=COPYOUT, LABEL=(,BLP) 

// VOL=SER=OUTAPE 

//SYSPRINT DD SYSOUT=A 

//SYSIN DD * 

$$DITTO bad INPUT=TAPEIN ,OUTPUT=TAPEOUT 

$$DITTO REW OUTPUT=TAPEIN 

$$DITTO TPD INPUT=TAPEIN, RECSTIZE=80 ,NBLKS=5 

$$DITTO EOJ 

/* 

//PRNTDISK JOB MSGLEVEL=1 

// EXEC PGM=OSDITTO,PARM='JOBSTREAM' 

/ /DISKIN DD UNIT-3330,DISP=OLD,DSN=DISKDATA, 

// VOL=SER=333001 

//SYSPRINT DD SYSOUT=A 

//SYSIN DD ** 

$$DITTO DD INPUT=DISKIN , BEGIN=00000,END=00000 

$$DITTO DD INPUT=DISKIN ,BEGIN=00018 ,END=00018 

$$DITTO DDD INPUT=DISKIN,BEGIN=00100,END=00101, 
RECSIZE=80 

$$DITTO EOJ 

/ /DUPCARDS JOB MSGLEVEL=1 

// EXEC PGM=OSDITTO, PARM='JOBSTREAM' 

//SYSPRINT DD SYSOUT=A 

//SYSPUNCH DD SYSOUT=B 

//SYSIN DD * 

$$DITTO CC 

DATA CARDS (followed by /+) 

/+ 

$$DITTO CP 

DATA CARDS (followed by /+) 

/+ 

$$DITTO EOJ 

/* 


NOTE: The DCB parameter is not required. For further 
Jobstream examples, please reference the sample 
jobs supplied on the distribution tape. Also 
additonal information is on the XXX documentation 
listing (Appendix A). 
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CONSOLE OPERATIONS 


All operator communication may be in upper or lower case. The 
cancel key is also implemented allowing retyping of replies 

in error. The end of message may be denoted by the EOB/END" 
key. 


Replying "“IRPT" to the "*** OS/DITTO active ***" message will 
cause the existing function to be terminated and a new opera- 

tion request displayed on the console This is an outstanding 
(un-answered) WTOR message technique. The ECB is checked in all 
input/output routines for an answer. The interrupt will not occur 
if no I/O activity is present. 


Tape address replies are entered in the form of "CUUMM" where 
C=Channel, UU=unit address, and MM=the density and mode setting. 
For nine-track single density tapes the MM parameter may be 
omitted. 


For console operation, card input end-of-file is indicated by 
physical end-of-file on the input device. End-of-file is denoted 
by depressing the E-O-F key on the card reader, or the presence 
of a tape mark if SYSIN is assigned to tape. This provides 

the operator with the ability to include embedded /* cards in 

the input data. If the operator desires to cancel a program 
with card data input, he should interrupt DITTO and enter "CCL" 
on the console. This will cause the input stream to be flushed 
to end-of-file. 


DITTO may be executed entirely from the console by entering an 
OS start command for the desired OS/DITTO console procedure. Each 
procedure allocates a unique group of I/O devices via data definition 
cards. This console allocation technique provides the required I/O 
devices for a given set of DITTO functions. The use of standard OS 
allocation also insures program operating stability and release 
independence. The supplied procedures and how to use them are 
described in the XXX documentation listing. 


The DITTO functions request operator information in a tutorial. 
sequence. Messages specify the length and format of each required 
response, and will re-request a response if in error. To. minimize 
console messages, the operator may enter up to five responses 

with one reply. The operator should reference the XXX pages. 
entitled "Console Procedures" and "Console Operations" for specific 
parameters required. 
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OPERATING SUGGESTIONS 


Printing Tape Files 


Programmers who require listings of tape files will find the Tape 

Hex formats more useful than the character print functions. The Tape 
Hex functions provide both character and vertical hexadecimal for- 
mat with a position scale for each tape record. Programmers using 
these functions under the remote control card operation should also 
make use of the NBLKS parameter. This optional parameter gives 

the programmer the capability of obtaining "partial" listings of tape 
files. 


Tape Errors 


All tape errors will initially be handled by Input/Output Supervisor. 
For Input tape errors that are uncorrectable, DITTO will transfer 
control to a console routine when in console operation mode. This 
routine will display the record as read on SYSPRINT, and allow the 
Operator to accept, bypass, or alter the data and/or length of the 
tape record before returning control to the original operation. This 
option is not available for remote programmer control card operation. 


Multiple Console Support and Route Codes 


All WTO's and WTOR's contain DESCRIPTOR and ROUTECODE parameters. 
DESC=6 and ROUTCDE=2 are the current values. To change for installa- 
tion standards reference the statement numbers listed. This allows 
an installation with Multiple Console Support to isolate OS/DITTO 
messages and replies to a given console. 


WTO/WTOR statement numbers by installation job: 
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//OSDITTO / /DIDMFMVT //DIDVS1#2 
0S013801 D1469700 D1490900 
D1476900 D1495900 
D1477810 D1496810 
D1478200 D1497200 
D1478500 D1497500 
/ /WTORSUB / /WTOSUB 
WR006900 wWO016600 


Card Input Assignment 


For control card operations, the end of the card input for a given 
$$DITTO control card is signaled with a/+ card. This will denote 

a unigue "software" end-of-file for the particular function. It 
also will allow multiple sets of $$DITTO Cnn control cards and 
associated card data to be read by an OS Reader until the /* state- 
ment or equivalent is encountered. 


The last $$DITTO operation must be a $$DITTO EOJ card and should 
be followed by a /* card or it's equivalent. Reference the 
sample control card jobstream for examples. Jobstreams consist- 
ing of JCL and embedded /* cards may be supplied as card input 
data by using a //SYSIN DD DATA DLM=AA statement with an AA card 
(AA in C.C. 1 and 2) delimiting all SYSIN data. 


For console operation, card input end-of-file is indicated by 
physical end-of-file on the input device. End-of-file is denoted 
by depressing the E-O-F key on the card reader, or the presence 
of a tape mark if SYSIN is assigned to tape. Since the input 
device is allocated online to DITTO, jobstreams with embedded 

/* cards may be read as card input data. 


3525 Card Punch Printing Feature 


DITTO supports either the two line (3525 feature #8338) or the 
multi-line (3525 feature #5272) print feature for punched output 

via the OS JCL FUNC=I parameter. DITTO will print the first 

64 card columns of punched data on line one of the card, and the 
remaining 16 card columns of data on line three. The user initiates 
this punch and print operation by providing a SYSPUNCH DD card 

of the following form when using functions CC, CCS, and TC, 

E. G.,//SYSPUNCH DD UNIT=00D, DCB=(BLKSIZE=81 , RECFM=FA,FUNC=I1). 


This punch device must be allocated online. The OS writer will 
not interpret SYSOUT=B output data. FUNC=I JCL support is in 
OS Release 21.0 and current OS/VS releases. 


Standard Tape Labels 


OS/DITTO issues Open/Close/EOV for all Tape, Disk, and Unit Record 
data sets. It is feasible to process standard labeled tapes as 
such. However, OS/DITTO physical block and Tape Mark handling is 
done on an EXCP basis without the use of standard OS Access Methods. 
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It is recommended that the LABEL=(,BLP) parameter be used on 

the TAPEIN and TAPEOUT DD cards. Standard label tapes may be 
processed on a physical basis. The user must allow for standard 
Label format by issuing additional DITTO tape functions to print 
and/or forward space by Standard Labels. Card to Tape and Tape to 
Tape functions write a Tape Mark. This is in addition to the Tape 
Mark written by CLOSE. If creating a standard Label tape, issue 

a Back Space File (BSF) to back up over the extra Tape Mark 
(written by the DITTO function) before EOJ. CLOSE will then create 
a Tape Mark before the Trailer Labels. The standard Label Tape 
will lack RECFM, BLKSIZE, and LRECL information but this may be 
provided by a JCL DCB parameter at creation time or input time. 


Standard Label Tape with OSAM Functions 


The new OS/DITTO EXTENSIONS QSAM Input/Output functions are the 
best way to use DITTO functions with Standard Label information. 
Functions CQ, CQS, QP, QD, and QQ along with cataloged procedures 
provide an easy way of creating and reading the Standard Label 
information on Tape or Disk. 


User Abends 


OS/DITTO issues user abends when unusual conditions occur. The 
abend codes and conditions are as follows: 


_ U100 - Control card error. The XXX listing is printed 
for error correction reference. No Dump is taken. 


- U101 - The SYSPRINT DCB did not OPEN successfully. 
No Dump is taken. 


- U200 - A physical input block has exceeded the 
input/output buffer. This buffer is fixed at assembly 
time to insure VS page-fixing efficiency. To in- 
crease buffer size beyond 14K as distributed, reference 
the Systems Manual - "Reducing Storage Requirements 
Section". A Dump is taken to verify this condition. 


mee eee 


- U300 - Unusual tape input/output error. Reference 
the tape ECB's in the SYSUDUMP listing for cause. 


= U400 - Unusual disk input/output error. Reference 
the DISKIN ECB in the SYSUDUMP listing for cause. 


= U500 - During function TTR, an input block has been 
read with one of the following conditions: 


(1) Exceeds the first input block read from data set 
or 


(2) Not multiple of logical record size. 


Reference the "DTPIO" input/output buffer in the SYSUDUMP 
listing for verification. 


= u604, U608, U612, U616, U620 - are TPUT SVC non-zero 
return code designations used in the TSOWTOR and 
TSOWTO sub-routines. 


= U704, U708, U712, U716, U720 - are TGET SVC non-zero 
return code designations used in the TSOWTOR sub-routines. 


OPEN/CLOSE/EOV Considerations 


The TAPEOUT data set is OPEN'ed OUTPUT. A CLOSE is issued by 
functions EOJ and RUN. This causes the OS unlabeled tape END-OF- 
DATA SET sequence to be written. This sequence consists of two 
tape marks. Therefore, when copying tapes, WTM commands for 
END-OF-DATA SET are unnecessary if EOJ follows the copy function. 


Also, tape editing of the TAPEOUT data set should be followed by 
One or more FSF's before the EOJ function to prevent writing tape 
marks in a data area. Caution should be used with the RUN function 
for the same reason. It is recommended that most tape-to-printer 
functions be performed from the TAPEIN data set. EOV is issued 
Only when END-OF-REEL is sensed on the TAPEOUT data set. 


Tape Mark and Load Point Message 


Unlike DOS/DITTO, the OS/DITTO program issues a message to the 
Operator/programmer when the "at Load Point" or "Tape Mark sensed" 
condition is recognized during operations subsequent to a BSF, BSR, 
Or FSR operation. 
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Tape Density and Recording Technique (Mode) 


In console mode, the operator may specify (if needed) the "MM" 
suffix when entering CUUMM to set density, parity, and track. The 
default is CO. It may be changed by reordering the Mode Table 

at statements 0S042500 and OSO045400. The tape mode appearing 

on the TAPE to PRINTER heading output is the mode supplied by 

the operator of JCL. The Density printed is the actual density 

of the input tape (obtained from sense bytes set by the first read). 
The "XXX Listing" contains specifications on the "MM" mode settings. 
Programmers may submit the DCB parameter with the DEN and TRTCH 
sub-parameters to control these settings. 


DITTODP and DITTODSN Console Procedure Consideration 


The DITTODP procedure requires the symbolic parameters DSNM and 

SER to provide data set name and volume DD parameters. The procedure 
will fail with a JCL error if DSNM and SER are not provided on the 
START command. The procedure DITTODSN provides the same parameters 
as DITTODP as well as QUAL= to specify DSN for single-level 

Qualified Data Set Names. 


Initiating Console Mode DITTO Through the Jobstream 
to Obtain SMF Data 


If the user requires that console mode OS/DITTO be initiated through 
the jobstream reader as opposed to using a START command so that 

SMF Data for DITTO will be written, the following steps should be 
taken: 


(1) Remove the PARM="JOBSTREAM" parameter from the EXEC card 


(2) Submit the DD cards that will be needed (TAPEIN, TAPEOUT, 
and/or DISKIN) 


This could also be done via a S RDRJOB, PRC=DITTO--technique 
Similar to the HASP internal reader technique. RDRJOB would be 
an OS reader procedure instead of a HASP internal reader. 


DOS SYSLST Tapes 
DITTO functions TFA and TFD have been removed from the OS version. 
If the user requires the capability of printing DOS SYSLST tapes 


under OS, he may employ the same technique used to print OS Direct 
Systems Output tapes. 
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Under OS, DSO tapes are printed by using the OS utility IEFPRINT. 
This utility may also be used to print DOS SYSLST tapes. BLKSIZE, 
record format, and carriage control (ASA or machine may be speci- 
fied on the input DCB parameter). 


Using DITTO Console Procedures in the Jobstream 


Most OS/DITTO cataloged Procedures may be invoked from the job- 
stream. This saves the programmer the task of supplying the 
necessary DD statements. For example, the statements needed to 
execute procedure DITTODP and DITTOTP. 


//DISKPRINT JOB MSGLEVEL=1 

//EXEC DITTODP, PARM="JOBSTREAM" ,SER=WORK01,DSNM=MYDATA 
//STEP 1.SYSIN DD * 

$$DITTO DP BEGIN=00000,END=00000, INPUT=DISKIN 

/* 

//TAPEPRNT JOB MSGLEVEL=1 

//EXEC DITTOTP , PARM="JOBSTREAM" 

//STEP1.SYSIN DD * 

$$DITTO TP INPUT=TAPEIN 


All procedures contain STEP 1 on the EXEC card to allow over- 
riding and adding DD cards. 


The Effect of BSF, FSF, and ERT on Tape Control Units 


The Back Space File, Forward Space File, and Erase Tape command 

are executed in the Tape Control Unit as are all other tape drive 
commands. If the execution of the command requires that a major 
portion of the tape reel be passed, the tape control unit is 
temporarily unavailable to other jobs in the system. This is 

only significant in full reel cases. If the case arises, the control 
unit can be made available by taking the drive out of ready, cancel- 
ing DITTO, and then ready to drive. 


Accessing Multiple Extent Data Set Using Control Cards 


OS/DITTO provides access to each extent of a multiple extent data 
set serially beginning with the first through the last. The 

first extent is available for printing until the End-of-Extent 

(or invalid extent is reached). At that time the second extent 

is made available for printing. This process may be continued until 
all extents are exhausted at which time the final extent remains 
available. The following is an example for accessing the first 
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and last track of each extent of a Data Set. The Data Set was 
allocated with "UNIT=3330,SPACE=(CYL, (5.1)" and Secondary allocation 
was entered 2 times. 


-~1Ist TRACK(lst EXTENT) $$DITTO DP INPUT=DISKIN ,BEGIN=0000,END=00000 
-LAST TRACK(1lst EXTENT) $$DITTO DP INPUT=DISKIN, BEGIN=00418 ,END=00500 
~lst TRACK(2nd EXTENT) $$DITTO DP INPUT=DISKIN,BEGIN=00000,END=00000 
-LAST TRACK (2nd EXTENT) $$DITTO DP INPUT=DISKIN, BEGIN=00018,END=00100 


-PRINT TO EOF(LAST EXTENT) $$DITTO DP INPUT=DISKIN, BEGIN=00000,END=00018 


* END=00500 and END=00100 causes Out of Extent and Next 
Extent is made available. 


sa7< 
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-38- 


GeGLUGouCO 
GoGoUGoOoCoO 
OG co 
ele UG 
Gu 00 
CO 00 
Go 0 
OG oa 
oo co 
90 are) 
occoccoococe 

cocucoousco 


SSSSSS5555 
SSSSSSSSSSSS 
SS SS 


SSSSSSSSSS$ 
SSSSSSSSSS5 
SS 

Ss 

SS SS 
SSSSSSSSSSS5S 
SSSSSSSSSS 


DOGDCDDDGDOD 

DODDDDDDODDDD 
DD DD 
oD DD 
DD DD 
DO DD 
oO DOD 
DD DD 
DD DD 
BD oo 
DDDDDDDDDDODD 
DDDDDDDDDDD 


TIQTIIIIIIIII 
TIIQIIQiITiil 


DATE=75.342 VERS.2 MOD.O 


EXTENSIONS 


VERS.1 MOQD.0 


TITTTTTTTTTTT 
TTTTITTTTITYT 


5798-ARD COPYRIGHT IBM COGRPORATICN 1973 


5798-CDA COPYRIGHT IBM CORPORATION 1975 


TTTTTTTITTITT 
TITTITTTITTTT 


oresccacae 
eeeneceerann 
co 00 
oc co 
ae ar 
Go co 
an ao 
ala) alg) 
oc ca 
ac ca 
aooonccosaca 
ocaracecan 


He 6 OR EE OK aK aR RK a KK OOS f OD LT TT OQ BRR RRR RR KK KKK KKK 


* 
x 
ok 
* 
* 
* 
x 
* 
* 
* 
* 
* 
* 
* 
x 
oe 
ak 
* 
* 
* 
* 
ok 
* 
* 
* 
* 
* 
* 
* 
* 
x 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
4 
* 
en 
* 
* 
* 
x 
* 
rd 
K 
* 
* 
* 


CARD FUNCTIONS 


cc CARD TO CARD 
CCS CARD TO CARD WITH SEQ. NUMBERS AND DECK NAME 
CP CARD TC PRINTER IN CHARACTER FORMAT 
co CARD TO PRINTER IN CHARACTER AND HEX DUMP FORMAT 
CT CARD TG TAPE BLUCKED 1 TO 400 
CTS CARD TC TAPE RESEQUENCED 
CCL CANCEL CARD INPUT (FLUSH TO EQGF) 
TAPE FUNCTIGNS 
TC TAPE TO CARD BLOCKED OR UNBLOCKED 
TP TAPE TC PRINTER UNBLOCKED IN CHAR. FORMAT 
TPO TAPE TCG PRINTER DEBLOCKED IN CHAR. FORMAT 
TO TAPE TO PRINTER UNBLOCKED IN CHAR. AND HEX DUMP 
TOC TAPE TC PRINTER DEBLOCKECD IN CHAR. AND HEX DUMP 
TPV TAPE TO PRINTER VARIABLE RECDS CHAR. FORMAT 
TOV TAPE TO PRINTER VARIABLE RECCS CHAR. AND HEX DUMP 
TRS TAPE RECORD SCAN 
TRL TAPE RECGRO LCAD 
INT INITIALIZE TAPE 
TT TAPE TO TAPE (01 TO 99) FILES 
TTR TAPE TO TAPE REBLOCKED 
wt WRITE TAPE MARK 
REW REWIND TAPE 
KUN REWIND AND UNLOAD TAPE 
FSR FORWARD SPACE RECCRD 
BSR BACK SPACE RECORD 
FSF FORWARC SPACE FILE 
6 SF BACK SPACE FILE 
ERT ERASE TAPE (DATA SECURITY ERASE - 32420 ONLY) 
DISK FUNCTIONS 
DSE DISPLAY DATA SET EXTENT CN CONSOLE, USE FOR CCCHH 
DP DISK TO PRINTER UNBLGCKED IN CHAR. FORMAT 
DD DISK TO PRINTER UNBLOCKEG IN CHAR. AND HEX DUMP 
UPD DISK TO PRINTER CEBLOCKED IN CHAR. FORMAT 
DOL BISK TG PRINTER DEBLOCKELD IN CHAR. AND HEX DUMP 
URL DISK RECORD LGAD - KEY AND/OR DATA 
DRS DISK RECORD SCAN —- PARTIAL KEY OR DATA OR EQF 
£ OF WRITE OISK EOF RECORD 
vId ALTER DISK IDENTIFICATION VOLUME LABEL (OFFLINE) 
XXX LIST FUNCTIONS CN SYSPRINT 
EGJ END OF JQB 


CONTROL CARD OPERATION — /* IS SYSIN ECF FOR CONTROL CARDS & DATA. 
IF /* IN DATA, //SYSIN CD DATA,DLM=AA. 
/+ IS OS/BITTC ECF FOR DATA CARD IMPUT. 
CONSOLE OPERATION — READER EOF KEY IS END GF FILE FOR CARD INPUT. 
FGR SPLIT CYLINCER DISK FUNCTIONS: USE SP, SD: SPD; SOD, AND SRS. 
PUNCHED OUTPUT MAY BE INTERPRETED BY USING //SYSPUNCH DD UNIT=000, 
DCB=(BLKSIZE=81y,RECFM=FMyFUNC=I) - 3525 PRINT FEATURE REQUIRED. 
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SYSTEM UTILITY FUNCTIONS PROMPT FOR KEYWORD VALUES; 
CARDS, ASK IF EXECUTION DESIRED: AND LINK TO IEBPT PCH, 
AND ITEHPROGM. THE UTILITY RETURN CODE IS DISPLAYED. 


IEHLIST, 


CQ AND CQS RECOGNIZE RECFM=V AND VB GN QSAMOUT AND THE 4 BYTE ROW 
DESCRIPTOR WORD) IS BUILT. IF QSAMOUT RECFM, BLKSIZE, 
LRECL NOT SUBMITTED: RECFM=FBS~2BLKS IZE=3120,LRECL=80 IS USEC. 


(RECORD 


QC WP, AND QP RECOGNIZE RECFM=V AND VB ON QSAMIN. 
FIELD IS USED FOR LRECL. A PDS MEMBER IS PROCESSED BY DSN(MEMBER) 


QQ ASSUMES COMPATIBLE RECFM'S (V TO VB; 
NOG ADJUSTMENT FOR VAR LEN ROW FIELDS IS MADE. IF 
RECFM, BLKSIZE, AND LRECL NOT SUBMITTED: QSAMIN IS USED. 


QSAMOUT. 
QS AMOUT 


ALL QSAM 
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SYSTEM UTILITY FUNCTIONS 


PRINT ONE OR ALL MEMBERS OF A PDS 
PUNCH ONE OR ALL MEMBERS OF A PDS 

DUMP A DASD VOLUME TO TAPE 

RESTORE A DUMP TAPE TO DASD 

LIST SPACE AVAILABLE ON A GASD VOLUME 
LISTVTOC OF A DASD VOLUME 

LIST CATALOG (SYSCTLG ~- IPLVOL OR CVOQL) 
LIST PDS DIRECTORY 

CATALOG DSNAME 

UNCATALGG DSNAME 

SCRATCH VTQCy DATA SET+s OR MEMBER OF A PODS 
RENAME DATA SET OR MEMBER 


QSAM (CARD, DASG? AND SL/ BLP TAPE) FUNCTIONS 


CARD TO QSAM 

CARD TO QSAM WITH SEQ. NUMBERS AND OECK NAME 
QSAM TO CARD (USE FUNC=I FOR 3525 INTERPRET) 
QSAM TC QSAM (COMPATIBLE RECFM*S ASSUMED) 


QSAM/VSAM PRINT FUNCTIONS 
QSAM TO PRINTER DEBLOCKEC IN CHAR. FORMAT 
QSAM TO PRINTER DEBLOCKED IN CHAR. AND HEX DUMP 
VSAM TO PRINTER DEBLOCKED IN CHAR. FORMAT 
VSAM TO PRINTER GEBLOCKED IN CHAR. ANO HEX DUMP 
MISCELLANEOUS FUNCTIONS 


CCNTROL CARD ~- TAPE RECORD SCAN 
CONTRGL CARD — DISK RECORD SCAN (KEY/DATA/ ECF) 


S DITTOLOG — WRITE TAPE MARK ON DB/DC LOG TAPE 
WITHOUT REWIND AFTER SYSTEM FAILURE 


(SEE COMMENT CARDS IN OITTOLOG PROC 
FOR OPERATICNAL DETAILS) 


TAPE PROCS DEFAULT TC STANDARD LABELS. 
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cc 1-7 FUNCTION PARAMETERS cc 72 
$$DITTC PRT (MEMB ER= MEMBNAME)(,RECSIZE=N..-N) 
$$C1ITTC PUN (MEMBER=MEMBNAME) (,RECSIZE=N..-N) 
$$DITTO CQ 
$$DO1TTO CQs DECKTYPE=XXX y DECKNAME=X «2 oX 
$$D1TTC Qc ( STARTAF T=N..-N) C sNLRECS=Ne~ oN) 
$$DITTQ QQ ( STAR TAF T=N..-N) ( sNLRECS=N.2N) 
$$OITTC QP (STARTAFT=N..-N) (,NLRECS=N..-N) 
$$DITTO QD ( STAR TAF T=N..~N) ( +NLRECS=N...N) 
$$DITTO vP (STARTKEVY=KEYVAL JGR( STAR TAFT=N.e-N) ( sNLREC S=No ee N) 
$$D1TTO VD (STARTKEY=KEYVAL JOR (START AFT=AN. - NIC gNLRECS=NLeeN) 
$$DITTC TRS INPUT=DDONAME ,REC SI ZE=N. 2. eo NeARGUMENT =ARGVAL (,SCANPOS=N.. oN) 
$$DITTC DKS INPUT=DONAME » BEG IN=CCCHHy END=CCCHHy RECSIZE=Ne ee Ny x 
$$0ITTC SCANT YPE=X sARGUMENT=ARGVAL(,SCANPOS=N..e-N) 
PARAMETER DESCRIPTION 
INPUT=DONAME MUST BE TAPEINsDISKIN, OR TAPEQUT 
SCANTY PE=X SCAN FOR (K=KEY, G=CATAs £=EGF) 
BEGIN=CCCHH CCCHH REL.» TO 1ST TRK OF DATA SET 
END=CCCHH CCCHH REL. TO 1ST TRK GF DATA SET 
SCANPOS=Ne-eN SCAN STARTING POSITION IN LREC 
AKGUMENT=ARGVAL ARGVAL IS C*§CHAR* GR X*HEX* 
RECS IZE=N.eeN LOGICAL RECORO SIZE 1-99999 OR V (TRS) 
DECKTYPE=XXX DECKTYPE (BAL, RPG; COB) 
DECKNAME=X..-X DECKNAME (0-32 0-5: 0-8) CHAR. 
STARTKEY=KEYVAL KEYVAL [IS CHAR *CHAR® CT'CHAR® OR X*#HEX! 
STAR TAFT=N.2-N START AFTER NTH LREC 
NLRECS=NeeeN USE TO LIMIT NUMBER OF LRECS PROCESSED 
MEMB ER=MEMBNAME 1-8 CHAR. UMIT TO GET ALL MEMBERS 
NOTE: CONSOLE PROCEDURES (NEXT PAGE) MAY ALSO BE USED IN CONTROL CARD MODE. SUBMIT 


PARM.STEPL=" JOBSTREAM® ON PROC EXEC AND //STEP1I1.SVYSIN CD * PLUS CONTROL CARTS. 
PRT AND PUN RECSIZE= IS CPTICNAL(DEFAULT=80)~. SCANPOS= IS GPTIONAL (DEFAUL T=1). 
DCNAMES USED BY PRT TO VD ARE FIXED AND CONTAINED IN PROCS. NO INPUT= NEEDED. 

( ) DENOTES OPTIONAL PARAMETER. TRAILING » AND XIN72 ALLOWS FAPMS GN NFXT CAPO. 
KEYVAL AND ARGVAL CHAR LIMIT IS 35. HEX LIMIT IS 50. CODE ** FOR * IN VALUE. 
SYSPRINT»s SYSPUNCH, AND QSAMOUT ARE NCT CLOSED TILL FOS. FUNCTION CONTROL CARDS 
CAN SELECTIVELY PROCESS QSAMIN/VSAMIN DATA SETS. EQF CLOSES QSAMIN/VSAMIN AND 
ENDS THE FUNCTION. QSAMIN/VSAMIN ARE FE-GPENED WHEN A FUNCTION REQUESTS THEM. 
VSAMIN SUPPORTS BOTH KSDS AND ESDS VSAM DATASET FORMATS. 


JOBSTREAM EXAMPLES 


//PRTPUN JOB MSGLEVEL=1 

// EXEC DITTOPDS,PARM.STEPL=" JCBSTREAM®, 
4/ DSNM="SYS1.PARMLIB® 
//STEPL.«SYSIN OD * 

$$D1TTO PRT 

$$DITTG PUN MEMBER=ITEASYS0O 


//OKS JOB MSGLEVEL=1 

// EXEC DITTODP,PARM. STEPL="JOBSTREAM!, 

4/ DSNM="SYS1.DITTCOMAC® 

//STEPL.SYSIN DOD * 

$$DI1TTO DRS INPUT=D01 SKIN»sBEGIN=000002END=00000, X 
$$D1L TT SCANTY PE=D+RECS IZE=803 SCANPOS=10, x 
$$DITTO ARGUMENT=C* EJECT 


eR RK KK KR KK OS/DITTO CONSOLE PROCEDURES - EXTENSIONS eR RK KR RK Re RK KF 


TO INITIATE OS/DITTO FROM THE CONSOLE ENTER A START COMMAND OF THE FORM; *S DITTC---.PN*. REPLACE --- WITH OS/D! 
PROCEDURE NAME SUFFIX; €-G. S_DITTOUTL.P2,SER=ILPVOL WILL ALLCCATE DASC VOLUME FIPLVOL'. THIS ALLOCATION SUPPORT 
FUNCTIONS LS THROUGH REN FOR THAT VOLUME. USE THE FOLLOWING PROCEDURE NAME, SYMBOLIC PAREMETER, AND FUNCTICN USE 


GUIDELINES TQ CHOOSE THe CORRECT PROCEDURE AND FUNCTION. 


PROCEDURE SYMBOLIC PARAMETER FUNCTION USE 
NAME DEFAULT VALUES GUIDELINES 

DITTGPOS IN=SY SDA, SER=,DSNM=,CLS=B sPUN=,FUN= PRT »PUN 

DITTGD UM DUNIT=SYSDA; DSER=,TUNIT=TAPE, TLAB=BLP, TS ER=DUMTAP DUM 

DITTORES DUNIT=SYSDA,DSER=, TUNI T=TAPE,TLAB=BLP,TSER=RESTAP RES 

DITTOUTL IN=SYSDA;,SER=, LSeb Vel Cel Pe CAT, UNC ySC2,REN 

DITTCC QT CUT=TAPE, COSN=CQT.CUT »RDR=00C CQ,CQS 

CITTOLQD GUT=SY SDA 10DSN=CQD. GUT »RDR=00C CQ,CQS 

DITTONC IN=SY SDA,CLS=B Qc 

DITTOGCI IN=SV SCA yCLS=,PUN=0006 sFUN=I Qc 

DITTCGQTT IN=TAPE yQUT=TAPE, ODSN=QTT.OUT QQ 

DITTOWTD IN=TAPE sGUT=SYSTAs0DSN=QTD.OUT QQ 

BITTCQoo IN=SY SDA, OUT=SY SDA ,;ODSN=QD0D.0UT QQ 

OITTOwWDT IN=SY¥ SDA, OQUT=TAPE,QDSN=QDT.OUT QQ 

DITTOQWP ; IN=SY SDA,CLS=AyPRT= QP,QD 

DITTCVP IN=, IT DSN=2ISHR=SHR,I SER=,1TAMP=,CLS=A, PRT= VP,VD 

DITTOLGG CUT=T APE, CDEN=, CT RT CH= NOT A FUNCTION CODE 
QSAMIN SYMBOLIC PARAMETER QSAMOUT SYMBCLIC PARAMETER UNTT PECORD SYMBOLIC PARAMETERS 
DEFAULT VALUES DEFAULT VALUES 

IDSN=, ISHR=SHR,IKEEP=KcEP ONEW=NEW, CKEEP=KEEP, RDR=CUU SELECT SYSIM UNIT 
ISER=, IFILENO=1, ILASEL=SL OSER=,CFILENO=1,0LABEL=SL PUN=CUU SELECT SYSPUNCH UNIT 
IBLKSIZ=,1TRECFM=,1TLRECL= OBLKS IZ=,ORECFM=, OLRECL=, CLS= SY¥SOUT CLASS=NULL 
(DASD ONLY) CLS=A SYSQUT CLASS=A OP B 
QSPACE=TRK,QPRI=1,0SEC=1 PRT= SYSPRINT UNIT=NULL 


PF T=CUU SELECT SYSPPINT UNIT 


SAMPLE START COMMANDS USING CPTIONAL SYMBOLIC PARAMETERS TO OVEFRRICE DEFAULT VALUES. 


COMMAND EXPLANATION 

S DITTCPDS .P3,DSNM=POSL1IByCLS=-ePUN=00D »FUN=1 SYSPUNCH ON 000 WITH INTERPPET 

S DITTCDUM.P1,DSER=SYSRES DUMP SVYSRES VOLUMF TC TAPE (RLP) 

S CITTCRES.»P2,0SER=NEWRES RESTORE TAPE (BLP) TC NEWRES 

S OITTCUTL .P3,ySER=WORKOL SELECT WORKC1l VOLUME FOR LS THROUGH PEN 

S CITTOCGT.P4,CSER=000000 CARD TO STANDAPD LABEL TAPE NUMBER 000000 
S DITTGCQD.P5sGSPACE=CYL CARD TO DISK WITH CYL ALLOCATION 

S GITTCQC.P6, 1 DSN=CARDS, ISER=111111 DASD TO CARD PSN=CAROS,VOL=SER=ILLLII 

S CITTOQCI.P7s,IDOSN=SCRCT APE TAPE TO CAPD WITH INTEPPRETC(SL CATALOGED) 
S DITTGQTT.P&, IDSN=CATLGGSN sGDSN=DATAPESL TAPE TO TAPE (OQSER=SCPTCH BY DEFAULT) 

S CITTGQTD.P9,1TCSN=CATLGDSNs OKE EP=CATLG TAPE TO DASD (OLSPOSTTICN=CATLG) 

S CITTOQDG. P10, 1DSN=CATLGDSNsOBLKSIZ=12000, DASD TO DASB (RE-BLOCK Te 12000) 

ORECFM=FBSsyCLRECL=80 

S CITTGOGDT.P11,IDSN=CATLGDSN,CDSN=T APEDATA DASD TOC TAPE (SUPPLY OUTPUT DOSNAME) 

S GITTOQP.P12.1DSN=PDS( MEMBNAME) DASD TO PRINTER (USE QSAM PDS SUPPORT) 

S DITTCVP.P13,IDSN=KSDS VSAM TO PRINTER (SELECT KSDS) 

S GITTCLOG.P14,OUT=280 TAPEMARK LUGTAPE REEL ON 280 (NO REWIND) 


NOTe: ITF OSNAME CIDSNy COSN, OR CSNM) CONTAINS SPECIAL CHARACTERS, ENCLOSE IN QUOTES ANP CAPITALIZE ALPHA CHARACTERS 
WHEN KEVING THE START CGMMAND. E.Ge S GITTOPLDS .PO,DSNM="SYS1.MACLIBE 


DECKTYPE=XXxx 
START AFT=N ..2N 
STARTYPE 


DECKTVPE (BAL, RPG, COB) 
START AFTER NTH LREC COUNT 
K-STARTKEY, C-STARTAFT, U-FIRST LREC 


DECKNAME=X...X 
NLRECS=N.ee-N 
STARTKEY 


CECKNAME (0-3, O-5, 0-8) CHAR. 
USE TO LIMIT WUMRER OF LPECS PROCESSED 
XeeeX — KEY VALUE TS 1-35 CHAR MAX 


kek KKK ROK OK OS/DITTO CONSOLE GPERATIGN - EXTENSIONS eo RR ek Ok kk 
TO MI ZE_CONSOLE MESSAGES: YOU_MAY ENTER WITH THE FUNCTION ALL OR PART OF_T REQUIPED PAPAMETEFS., A PARAMETER 
ERROR WILL CAUSE DITTG TO REVERT TO THE TUTORIAL ROUTINES AND REQUEST REMATNING PARAMETERS IN A SENGLE REQUEST MODE. 
A FUN BE ENDED BY REPLYING *U® TO THE FIRST WTOR MESSAGE. A REPLY GF "EQN" WILL END THE FUNCTION AND DITTC. 
SYSTEM UTILITY FUNCTIONS PARAMETEP REQUIREMENTS 
PRINT ONE OR ALL MEMBERS CF A PDS PRT »MEMBER/U,MEMBLRECL /Uy EXECUTE 
PUNCH ONE OR ALL MEMBERS OF A PDS PUN »MEMBER/U, MEMBLRECL/U, EXECUTE 
DUMP A DASD VOLUME TG TAPE DUM,E XECUTE 
RESTGRE A DUMP TAPE TG DASD RES CPYVOL 1D/Uy PURGE/Us EXECUTE 
LIST SPACE AVAILABLE ON A DASD VCLUME LS 
LISTVTOC GF A DASD VOLUME LV, FORMATOR DUMP /U,DSNAME JODY YY /U,EXECUTE 
LIST CATALOG (SYSCTLG — IPLVOL OR CVCL) LCyNODE/U, EXECUTE 
LIST PDS JIRECTORY LP sDSNAME »F OR MATORDUMP/U, EXECUTE 
CATALOG CSNAME CATs CSNAME sCVCL/Us DEVICE, VOL SER » EXECUTE 
UNCATALUG DSNAME UNC sOSNAME,CVOL/U, EXECUTE 
SCRATCH VTOC;, DATA SETy OR MEMBER OF A PLS SCR yDSNAMEORVTOL , PURGE /U, MEMBER OP SY S/U EXECUTE 
RENAME LATA SET GR MEMBER REN,DSNAMEs NEWNAME, MEM BNAME/Uy EXECUTE 
QSAM (CARD, DASC, AND SL/BLP TAPE) FUNCTIONS 
CARD TO QSAM ca 
CARD TO QSAM WITH SEQ. NUMBERS AND DECK NAME CQS,DECKTYPE »DECKNAME 
QSAM TG CARL (USE FUNC=I FOR 3525 INTERPRET) QC ST ARTAFT/Uy NL RECS/U 
QSAM TG GSAM (COMPATIBLE RECFM'S ASSUMED) QQ 2STARTAFT/U gNLRECS/U 
QSAM/VSAM PRINT FUNCTIONS 
QSAM TG PRINTER CEBLGCKED IN CHAR. FORMAT QP sSTARTAFT/UsNLPECS/U 
QSAM TO PKINTER DEBLOCKED IN CHAR. ANC HEX DUMP QDs START AFT/UsNLRECS/U 
VSAM TO PRINTER DEBLOCKED IN CHAR. FORMAT VP ySTARTYPE/U(_ STAR TKEY/STARTAFT ) gNLRECS/U 
VSAM TO PKINTER DEBLCCKED IN CHAR. AND HEX LUMP VDy STARTYPE/U(, STAR TKE V/STAR TAFT) gNLPECS/U 
/ SLASH SHGWS OR CONDITION. CHOOSE ONE * UL USE THE DEFAULT GPTION, VALUE, OR FORMAT 
ME MBER=ME MBNA ME 1-8 CHAR. OMIT TO GET ALL MEMBERS * MEMBLRECL NAN - MEMBER LRECL (DEFAULT TS 80) 
EXECUTE —E - EXECUTE FUNCTION, U — TO CANCEL *  CPYVCLIC C - CPYVOLID=YES; U — CPYVOLID=NO 
PURGE P — PURGE UNEXPIRED DSN'S, U - NO PURGE *  FORMATGROUMP F - FORMAT, D ~ NUMP, U — NEITHER(LIST) 
DSNAME 44 CHAR MAX DATA SET NAME *  DDDYYY DATE GPTION, * BY OSN'S LESS THAN DDDYY 
NODE LISTCTLG NODE GPTION (E.G. SYS1) * CVOL C ~ CATLG CVOL OPTION, U — NOT A CVOL 
DEVICE DEVICE TYPE FOR CATALOG ENTRY (E.G.3330) *  VOLSER VOLSER LIST (1 — 5 MAX, CC NOT STRING) 
DSNAMELRVTOC "VTGC' - SCRATCH VTGC, DSNAME — SCR OSN *  MEMBERORSYS MEMBNAME — SCR MEMBER, S — SCRATCH SYS 
NEWNAME NEWNAME GF DSN OR MEMBER *  MEMBNAME MEMBER TO BE PENAMED 
* 
x 
* 
* 


( 


) 


DENOTES CPTICONAL PARAMETER 


INPUT=DDNAME 
QUTPUT=DDNAME 
BEGIN=CCCHh 
END=CCCHH 
NBLKS=NeeN 
RECSIZE=NeeeN 
DECK TYPE=XXX 
DECKNAME=Xee eX 
BLKFACTOR=N.N 


NOTE» SUBMIT 


SUBMIT TAPEIN, 
TAPEQUT IS OPENED AS CUTPUT; 


ee KR OR OR KR FUNCTIGN CCNTROL CARD FORMAT kok kok Re ok kok 
CC 1~7 FUNCTION PARAMETERS 
$$DITTC CC 
$$01TTC CCS DECKTYPE=XXX sDECKNAME=X « « oX 
$$DITTC cP 
$$DI TTC co 
$$01TTC CT OUTPUT=ODNAME »BLKFACTOR=N.N 
$$D1TTO CTS QUTPUT=ODNAME, BLKFAC TOR=NeNy DECK TYPE=XXX yDECK NAME=Xo oo X 
$$D1TTC TC INPUT=DDNAME 
$$DITTG TP INPUT=DONAME sNBLKS=N. oN 
$$DITTC TPD INPUT=DDNAME »RECS IZE=Noo Ny NBLKS=No oN 
$$D1TTC TD INPUT=DDNAME ,NBLKS=N. oN 
$$D01TTO TOD INPUT=DDNAME sRECSIZE=NeeeNyNBLKS=No oN 
$$DITTC TPV INPUT=DENAME yNBLKS=Ne oN 
$$D0I1TTC TOV INPUT=DD NAME »NBLKS=NeeN 
$$DITTO TT INPUT=DDENAME, OUTPUT= DDNAME yNBLKS=N. oN 
$$D1TTO TTR I NPUT=DDNAME , GUT PUT=DDNAME, RECS IZE=Noe eNy BLK FAC TOR=N SN 
$$DITTO WTM OUTPUT=DDNAME 
$$DI TTC REW QUT PUT=DENAME 
— $$D1TTC RUN OUTPUT=DDNAME 
$$DITTC FSR QUTP UT=DDNAME ,NBLKS=Nz oN 
$$D1TTG BSR QUT PUT=DDNAME,NBLKS=N. oN 
$$01TTO FSF OUTPUT=DDNAME 
$$01TTO BSF GUT PUT= DENAME 
$$D1 TTC pp INPUT=DCONAME y BEGIN=CCCHH, END=CCCHH 
$$D1TTC DD INPUT=DDNAME ,BEGIN=CCCHH sEND=CCCHH 
$$DITTC DPD INPUT=DDNAME 7 BEG IN=CCCHH,y END=CCCHHy RECSIZE=Noe oN 
$$D1TTC DOL INPUT=DDNAME »BEGIN=CCCHH , END=CCCHH, RECSIZE=N. oN 
$$DITTO XXX 
$$D1 TTC EQ 
PARAMETER DESCRIPTION 


MUST BE TAPEINsDISKIN, GR TAPECUT 
MUST BE TAPEQUT OF TAPEIN 

CCCHH REL~- TO 1ST TRK OF DATA SET 
CCCHH REL. TC 1ST TRK OF DATA SET 
NUMBER OF TAPE BLOCKS 1-9999 
LOGICAL RECORO SIZE 1-99999 
DECKTYPE (BAL, RPG, CCB) 

DECKNAME (0-3; O-5, O-8) CHAR. 
GUT PUT BLOCKING FACTOR 1-995 


(PARM="JOBSTREAM") GN EXEC CARD TO DENOTE CONTROL CARD OPERATIGN. 


& DISKIN DC CARDS IF USED IN INPUT= OP CUTPUT=. 
THEREFORE, A FILE PROTECT RING IS REQUIRED. 


TAPEQUT, 


TwO TAPE MARKS ARE WRITTEN GN TAPECUT BY A CLGSE IN FUNCTIONS RUN € EQJ. 
DCB=(GEN=X_yTRTCH=XX) MAY Be SPECIFIED ON TAPEIN AND TAPEOQUT DD CARDS. 


CCCHH IS RELATIVE TC FIRST CCCKH OF DATA SET EXTENTS 


E-Ge BEGIN=00000, 


END=00418 WILL ACCESS ENTIRE 3330 FIVE CYLINDER 3330 DATA SET. 


FROM CONSOLE CCCHH IS ABSGLUTE. 
NBLKS=N.eN PARAMETER IS OPTIONAL. 


QPERATOR MUST USE DSE FOR VALID CCCHH. 
LAST PARAMETER MUST BE EQJ. 


OR RR RO KR KK OK OS/DITTG CONSOLE PROCEDURES we OR KR KR KH KK OK 


TO INITIATE OS/DITTO FRUM THE CONSOLE ENTER A START COMMAND GF THE FORMs3 *$ DITTO---.PN§. REPLACES ~-- WITH OS/PITTO 
PROCEDURE NAME SUFFIX; E.G. S DITTCTP.P2 WILL ALLOCATE ONE TAPE DRIVE AND SYSPRINT. THIS ALLOCATIQN WILL SUPPOPT 
DITTG FUNCTION TP AND ALL OTHER FUNCTIONS THAT REQUIRE NOG MORE THAN QNE TAPE DRIVE AND SYSPPINT. TO SELECT INPUT 


TAPE DRIVE AND PRINT CNcCINE, ENTER GPTIONAL SYMBCGL IC PARAMETERS; E.G. S DITTOTP. P21 N=281,PRT=O0F,CLS= 2. USE THE 
FOLLOWING PROCEDURE NAMc, SYMBOLIC PARAMETER»: AND FUNCTICN USE GUICELINES TQ CHGCSE COPRECT PROQCEDUPE AND FUNCTION. 


PROCEDURE SYMBCLIC PARAMETER FUNC TION _ USE 

NA Mc DEFAULT VALUES GUIDELINES 

DITTOCC RDR=U 0C sPUN=00D CL S= CCsCCS yCP2CDeCCL 

DITTCCCI RDP =00C,PUN=00D COsCCSeCPyCO CCL 

DITTCCP RDR=O00C sPRT=,CLS=A CP Cis CCL 

DITTOLT RDR=0 0C »OUT=TAPE CTsCTS2CCL 

DITTCTC I N=TA PE ,PUN=000,CLS= TCeTPeTPD,TD, TOD 

DITTOTCI IN= TAPE »PUN=0O0C TC+TP,TPO, TOs TOD 

DITTOTP IN=TAPE,PRT=2,CLS=A TPeTFD,TD, TDD gTPVe TOV eTRS es INTSZERT 

DITTOTT IN=TAFE ,OUT=T APE TT, TTR 

DITTOT RL IN= TA PE ,QUT=TAPE ,»PRT=O00E »CLS= TRL 

DITTOTRS IN=TAPEsPRT=OOEsCLS= TRS 

DITTOLP IN=S¥ SCA, OSAN= gSER=—9PRT=eCLS=A DSEsDP,0D,0PD;DDD_ OPL sDRSs SPS, FOF 

DITTQVID NONE DIOsXXxX 
UNIT RECORD SYMBCLIC PARAMETERS TAPE AND OTSK SYMBOLIC PAPAMETERS 
RDF=CUU SELECT SYSIN UNIT I N=CUU SELECT TAPEIN UNIT 
PUN=C UU SELECT SYSPUNCH UNIT IN=CUU SELECT DISKIN UNTT 
CLS= SYSOUT CLASS=NULL QUT=CUU SELECT TAPEQUT UNIT 
CLS=A SYSOUT CLASS=A OR 6 D SNM= SPECIFY DISKIN OSN 
PRT= SYSPRINT UNIT=NULL SER= PROVIDE OISKIN VOLUME 
PRT=CUU SELECT SYSPRINT UNIT SERIAL NUMPER 


SAMPLE START COMMANDS USING OPTICNAL SYMBOLIC PARAMETERS TO OVERFICE DEFAULT VALUES. 


COMMAND EXPLANATION 
S CITTCCC.PO0,;RCR=O0A_ PUN=;CLS=B SVYSIN ON OOAs SYSPUNCH TO SYSOUT=B 
S DITTOCCI.P1,RDR=00A SYSIN ON OGA 
S DITTOCP .P2,PRT=00F,CLS= SYSPRINT ON OOF 
S DITTOCT.P3 »QUT=T APET TAPECUT CN 7-TRPACK (NEED UNIT TNAME=TAPET) 
S DITTOTC .P4,1IN=285sPUN=»CLS=B TAPEIN ON 285, SYSPUNCH TO SYSNUT=B 
S DITTCTCI.P5;,PUN=00B SYSPUNCH GN OCB « 
S DITTOTP.P6,1N=287 »yPRT=OOF,CLS= TAPEIN CN 287, SYSPRINT GN OOF 
S DITTOTT .P?7,1N=284,0UT=281 TAPEIN OM 284, TAPEQUT ON 281 
S DITTOTRL.~P8,PRT=,CLS=A SYSPRINT TQ SVSOUT=A 
S DITTGTRS.~P9s,IN=270sPRT=2CLS=A TAPEIN ON 270, SYSPRINT TC SYSCUT=A 
S DITTODP .P102 IN=1512DSNM=DATA SET, SER=333601 DISKIN OM 151, DSN=DATASET,VGL=SER=333001 
S CITTODSN.P1il ,QUAL=SYS1 ,DSNM=DUMP ALLOCATE QUALIFIER OSN=SYS1.DUMP 


DITTOCCI AND DITTOTCI iNTERPRET CARD OUTPUT. 3525 FEATURE AND OS JCL FUNC=I SUPPORT REQUIRED. SYSPUNCH MUST BE ONLINE. 
TAPE CONTROL FUNCTICGNS CINTsWHTM,REW,RUNeFSReBSRSFSF2BSF,ZERT) ARE VALID WHEN TAPEIN GR TAPECUT ALLOCATED BY PRCCEDURE. 
DISKIN IS OPENED AS INQUT TO ALLOW DISK WRITE FUNCTIONS ORL AND EOF. 

XXX AND DID FUNCTIONS ARE VALID IN ALL PROCEDURES. 


* * KK KK * 


TO MINIMIZe CONSOLE MESSAGES, VOU MAY ENTER WITH THE FUNCTION ALL GR PART CF THE 
ERROR wKILL CAUSE DITTO TO REVERT TO THE TUTGRIAL RGUTINES ANG REQUEST FEMAINING PARA 
4& FUNCTION MAY BE ENDED BY REPLYING #U* 


NBLKS=NeeN 
GECKTYPE=XXx 
BLKFACTOR=ih 
COPYD=a 

NF TLE S=NN 
NRECS=Ne.N 

SC ANPGS=N..-N 


x OK OX 


CARD FUNCTICGNS 
CARD TO CART 
CARD TO CARO WITH SEQ. NUMBCRS AND OECK NAME 
CARD TO PRINTER IN CHARACTER FORMAT 
CARD TC PRINTER IN CHARACTER AND HEX DUMP FORMAT 
CARD TO TAPE BLOCKED 1 TG 400 
CARD TO TAPE RESEQUENCED 
CANCEL CARD INPUT (FLUSH TO EGF} 


TAPE FUNCTIONS 
TAPE TC CARD BLOCKED OR UNBLOCKED 
TAPE TO PRINTER UNBLOCKED IN CHAR. 
TAPE TO PRINTER CEBLOCKED IN CHAR. 
TAPE TO PRINTER UNBLCCKED IN CHAR. AND HEX BUMP 
TAPE TO PRINTER DEBLOCKED IN CHAR. AND HEX DUMP 
TAPE TC PRINTER VARIABLE RECDS CHAR. FORMAT 
TAPE TO PRINTER VARIABLE RECDS CHAR.» AND HEX CUMP 
TAPE RECORD SCAN 
TAPE RECGRD LOAD 
INITIALIZE TAPE 
TAPE TO TAPE (01 TO 99) FILES 
TAPE TO TAPE REBLOCKED 
WRITE TAPE MARK 
REWIND TAPE 
REWIND ANO UNLCAD TAPE 
FORWARD SPACE RECORD 
BACK SPACE RECCRD 
FORWARD SPACE FILE 
BACK SPACE FILE 


FORMAT 
FORMAT 


ERASE TAPE (DATA SECURITY ERASE + 3420 ONLY) 
DISK FUNCTIONS 

DISPLAY DATA SET EXTEAT ON CONSOLE, USE FOR CCCHH 

DISK TO PRINTER UNBLOCKED IN CHAR. FORMAT 

DISK TG PRINTER UNBLOCKED IN CHAR. AND HEX DUMP 

OISK TO PRINTER CEBLCCKED IN CHAR. FORMAT 


DISK TO PRINTER DEBLOCKED IN CHAR, 
DISK RECGRD LOAD —- KEY AND/OR DATA 
DISK RECGRD SCAN -— PARTIAL KEY CR CATA OR EGF 
WRITE OISK EOF RECORD 


AND HEX DUMP 


ALTER DISK IDENTIFICATION VOLUME LABEL (OFFLINE) 

LIST FUNCTICNS ON SYSPRINT 

=ND QF Jods 
NUMBER GF TAPE BLOCKS 1-9999 * 
DECKTYPE (BALs KFGe CuB) * 
OUTPUT BLOCKING FACTOR 1-995 * 
COPY FORWAKD OR BACK (CF OR B) * 
NUMBER UF FILES (1-995) * 
OPTIGNAL ~- (LIMITS PRINTING) * 
SCAN STARTING POSITION IN RECORD * 


OS/DITTO CGNSOLE CPERATION 


TO THE FIRST WTOR MESSAGE. 


KKK KE KK KK K & 


PEQUIPED PARAMETEPS. <A PAPAMETER 
METEPS IN A SINGLE PEQUEST MODE. 
A PEPLY OF frO0J' WILL END THE FUARCTION AND DITTO. 
PARAMETEP REQUIREMENTS 
CG 
CCS,DECKTYPE,DECK NAME 
cP 
cD 


CT » CUUMMs BLKFACTOR 
CTSeC UUMM ,BLKFACTOR, DECKTY PE »DECKNAME, 
cctl 


TC, CUUMM 

TP,» CUUMMsNRECS 

TPD »CUUMM sREC SIZE, NRECS 

TD, CUUMM,NRECS 

TDD »CUUMM yRECSIZE,NRECS 
TPV,CUUMM,NRECS 

TOV »CUUMMsNRECS 

TRS sCUUMM,REC SEZEs SCANLNTH sSCANPCS 
TRL »CUUMM, CUUMM,NBLKS,COPYD 

INT »CUUMMseVOLSER 

TT ,CUUMM,CUUMM,NFILES 

TTR gCUUMM,CUUMM,RECSIZE ,BLKFAC TOP 
wWTM,CUUMM 

REW,C UUMM 

KUN sCUUMM 

FSR »CUUMM»NBLKS 

BSR ,CUUMM,NBLKS 

FSF ,CUUMM,NFILES 

BSF ,»CUUMM,NFILES 

ERT,CUUMM 


DSE 

DP ,«CCCHH,CCCHH 

DD yCCCHHsCCCHH 

DP D,yCCCHH,CCCHH,FECSIZE 

DDD »CCCHHyCCCHHy, RECSIZE 

DRL »CCC—HH—-RRR 
DRS »CCCHH, CCCHH, SCANTYPER ECSIZE»s SCANLNTH 
EQF s,CCC—HH-RER 

DIC 


XXX 
ECJ 


KECSIZE=N..-N 
DECKNAME=X...%X 
SCANUNTHENN 


LOGICAL RECORD SIZE 
DECKNAME (0-3, 0-5, O-8) CHAR. 
LENGTH CF SCAN ARGUMENT (1-35) 


VOL SER=NNNNNN NEW VOLUME SEPTAL NUMBFR- LNTH=6 
SCANTYPE=X SCAN FQP (KF=KEY, C=DATA, E=EODF) 
RECSIZE=V TFS VAPTARBLE LENGTH-RECARDS ONLY 


1-99999 


HR XK KK KK K K 


TRACK 


NNANN SNA NNW SS 


000 


9 
9 
9 


NOTE. 


DENSITY 


200 
200 
200 
200 
200 


556 
556 
556 
556 
556 


800 
800 
800 
800 
800 


800 
1600 
6250 


800 
1606 
6250 


PARITY 


QDdD 
EVEN 
EVEN 
ODD 
ODD 


QD 
EVEN 
EVEN 
ODD 
Coo 


QDD 
EVEN 
EVEN 
ODD 
CoD 


SINGLE 
SINGLE 
SINGLE 


DUAL 
DUAL 
DUAL 


MM PORTICN CF CUUMM IS 


TRANSLATE 


DENSITY 
DENSITY 
DENSITY 


DENS ITY 
DENSITY 
DENSITY 


OFF 
OFF 


CONSOLE TAPE DENSITY & MODE VALUES MM * *% * *% RK * KK X 


DATA CONVEFT MM 
ON 10 
OFF 20 
OFF 28 
OFF 30 
GFF 38 
CN 50 
CFF 60 
QFF 68 
OFF 70 
OCF 7B 
CN 90 
QFF AO 
CFF A® 
OF F BO 
OFF Be 

co 
ca 
DO 
C8 
CO 
DO 


CPTICNAL ~- VALUE IS CO IF OMITTEC 


A USER INPUT TAPE ERRGR CORRECTION ROUTINE IS AVAILABLE UNDER CONSOLE OPERATION. 


CONTROL WItlL BE PASSED TG THE ROUTINE FOR ALL INPUT TAPE CDITTC FUNCTIChS TF OS 


ZRROR RECOVERY IS UNSUCCESSFUL. 
ERROR (ACCEPTING THE RECORD AS REAL), 
CGNSOLE ALTERATIGN TO THe RECCRD LENGTH AND/CR CATA, 


THE ORIGINAL DITTO FUNCTION. 


THE CONSOLE GPERATOR MAY EITHER IGNORE THE 


BYPASS (DRGP) THE ERROR RECORD, GR PERFOPM 


BeFCRE RETURNING COCNTPCL TC 


APPENDIX B 


-~4Q- 


JS/01TTG EXTENSIONS JOBSTREAM CONTROL CARD EXAMPLES: 


J/SAMPXXX = JSGB (*A=SX82*),*PAS3 BRAMMER, 
// CLASS=AyREGION=46K, TIME=0010,MSGLEVEL=1 
// cXEC PGM=OSDITTO,PARM=" JOBSTREAM!® 
//SYSPRINT UD SYSOUT=A 

//SYSIN DD * 

$$DITTO XXX 


Le XXX JOBSTREAM EXAMPLE 


4/PRTHPUN JOB (*A=SX82"),"PAS3 BRAMMER', 
// WASGLEVEL=1,CLASS=G,REGION=128K 

4/ cXeC DITTOPDS, 

// PARM.STEP1L=" JOBSTREAM', 

t/ FP UN= sCLS=B,FUN=I1, 

4/7) OSNM="SYS1.DITTOMAC® 

//STEPL.eSYSIN DD * 

$S$DITIO PRT 

S$DITTO PRT MeMBER=DITTODS1L 

S$DITTG PRT RECSIZE=40 

$$DITTG PRT MEMBER=D1 TTODS1+RECSIZE=40 
$$DITTC PUN MEMBER=DITTODS1L 

S$DiTTO PUN MEMBER=DITTODS1,RECSIZE=40 
S$D1TTO PUN MEMBER=DITTODS1+,RECSIZE=80 
S$DITTO PUN 

$$DITTO PUN REC SIZE=40 


2e PRT PUN JOBSTREAM EXAMPLE 
J/CQ4LQS JOB (tA=SX82'),*PAS3 BRAMMER', 


{/  MSGLEVEL=1 ,sCLASS=Gy REGION=1 28K 
// ExeC DITTOCQD, 


4/ PARM.STEP1="JOBSTREAM', 

tf OBLKSIZ=400,0RECFM=FB,0LRECL=80 

//STEP1.2SYSIN DD * 

$$DITTO CQ 

1234567890 DATA CARD 1234567890 
1234567890 DATA CARD 1234567890 


4+ (iN C.Ce 1) 

$$DITTO CQS DECKTYPE=BAL,DECKNAME=TES 

12345607890 DATA CARD 1234567890 
12345. 7590 DATA CARD 1234567890 


36 Cy CQS JOBSTREAM EXAMPLE (CARD TOG DASD) 


//CQHVBHSL JOB (*A=SX82*),*PAS3 BRAMMER', 
//- MSGLEVEL=1,CLASS=G,REGION=1 00K 
// EXcC DITTOCQT, 


// PARM.STEP1=" JOBSTREAM!, 

// OUT=2400, 

4/ OSER=004734; 

ff ODSN=" VARTABLE.BLOCKED® , 

// OBLKS1Z=3128,0RECFM=VB, OLRECL=80 


//STEPL.LSYSIN DD * 

$$DITTO CQ 

123450 7890 DATA CARD 1234567890 
1234507890 DATA CARD 1234567890 


4. CQ JOBSTREAM EXAMPLE (CARD TC STANDARD LABEL TAPE ~— VARIABLE PLOCKED) 
//QCIL#VB JOB (*A=SX82"),*PAS3 BRAMMER', 


77% MSGLEVEL=1,CLASS=G,REGIGN=128K 
// EXeC DITTONCI, 


4/ PARM. STEP 1=" JOBSTREAM', 
4/ IDSN=" VARTABLE.BLOCKED!® , 
// IN=2400, 

If ISER=0 04734 


7/STEPL.SYSIN DD * 

$$DITTOQ QC NLRECS=5 

$$DITTO QC STARTAFT=5,NLRECS=5 
$$D1ITTO QC STARTAFT=5 

$$DITTO QC 


5. QC JOBSTREAM EXAMPLE (INTERPRET FUNC=I DEFAULT IN PROC - VAR BLK INPUT) 
J/QQ4#TT JOB (*A=SX82'),"PASs BRAMMER', 


//) MSGLEVEL=1 sCLASS=G6, REGION=1 28K 
4/ EXEC DITTOQTT, 


tf PARM eSTEP1="JOBSTREAM'; 

4/ IDSN=" VARIABLE.BLOCKED! + 

// ISER=004734, 

4/ IN=2400, 

// OUT=2400, 

4f OBLKSI Z=6248,ORECFM=V8, OLRECL=80 


//STEPIeSYSIN OD * 

$$DITTG QQ NLRECS=2 

$$OITTGO QQ NLRECS=2, STARTAFT=3 
S$$DITTO QQ 


6¢ QQ JOBSTREAM EXAMPLE (VB TO VB RE-BLOCKED TO STANDARD LABEL SCRTCH TAPE) 


//QP#HQD 
4s 


JOB (*A=SX82')5*PAS3 BRAMMER, 


MS GLEVEL=1 »CLASS=G,REGION=1 28K 


// EXceC DITTOWP, 


4 


PARM.STEP1=" JOBSTREAM!, 


// IDSN=*SYS1.DITTOMAC(DITTODS2 }# 
//STEP1.SYSIN DD * 


$$DITTO 
$$DITTO 
$$D1TTO 
$$DITTO 
$$DITTO 
$$DITTO 
$$DITTO 


QP 
QP 
QP 
QP 
QD 
QD 
QD 


7. 


//NP#VD 
/f 


NLRECS=15. 
STARTAFT=15,NLRECS=20 
STARTAF T= 100 


NLRECS=2 
STARTAF T=103NLREC S=3 
STARTAFT=400 


QP QD JOBSTREAM EXAMPLE (PDS MEMBER INPUT) 


JOd (*A=SX824),'PAS3 BRAMMER', 


MSGLEVcL=1,CLASS=G,REGION=100K 


// eEXeC DITTOVP, 


tf 


PARM.STEPL=" JOBSTREAM', 


ff IDSN=*ESDSOE! 
J/STEPLe¢SYSIN DD * 


$$DITTO VP 
$$DITTCO VP 
$$D01TTO VP 
$$DIT70 VP 
$$DITTO VO 
$$DITTO VD 


NLRECS=15 

STARTAFT=10 

START AF T=10, NLRECS=20 
NLRECS=2 

NLRECS=2 


// EXtC DITTOVPs; 


V/ 


PARM.STEPI="JOBSTREAM', 


// IDSN="KSOSO6! 
//STEPISSYSIN DE * 


$$DITTO ve 
$$DITTO VP 
$$D1TTO VP 
$$UITTO VO 
$$DITTO VOD 
$$DITTO VP 
$$DITTO VP 
$$DITTO VP 
$$DiTTO VP 
$$0ITTO VP 
$$DITTO VP 
$$01TTO VP 


3e 


NLRECS=5 

STARTAFT=10 

STARTAF T=013NLREC S=20 
NLRECS=2 

NLRECS=2 


STARTKEY=005 
STARTKEY=0093NLRECS=1 
STARTKEY=013NLREC S=1 
STARTKEY=X* FOFIF6',NLRECS=1 
STARTKEY="0198 
STARTKEY="0'F*Q! 


VP VD JUESTREAM EXAMPLE (ESDS AND KSDS) 


//SAMPTRS JOB (*A=SX82*),"PAS3 BRAMMER', 
4/f MSGLEVEL=1;,CLASS=G,REGION=128K 


// EXEC 


//STEP 1. 


$$D1TTO 
$$DITTO 
$$DITTO 
$$DITTO 
$$DITTO 
$$DITTO 
$$OITTO 
$$DO1TTO 
$$DITTO 
$$DITTO 
$$DITTO 
$$DITTO 
$$DITTO 
$$DITTO 
$$DITTO 


OITTOTP, PARM.STEP1L="JOBSTREAM! » IN=2400 

SYSIN DD * 

TRS INPUT=TAPEIN, REC SIZE=80,ARGUMENT=C * CONSOLE® » SCANPOS=1 

REW OUTPUT=TAPEIN 

TRS INPUT=TAPEIN,RECSIZE=80 »y ARGUMENT=C* CONSOLE!® 

TRS INPUT=TAPEIN,RECSIZE=80,ARGUMENT=C PPL, X** 508 ©", SCANPOS=16 


TRS INPUT=TAPEINy RECSIZE=80 5 ARGUMENT HC © 4x 2 27 HR AK A I KH KH Fy X 


SCANPOS=1 
TRS INPUT=TAPEIN,RECSIZE=80, 
ARGUMENT=X'C3* ySCANPOS=1 
TRS INPUT=TAPEINsRECSIZE=80, 
SCANPOS=1; 
ARGUME NT=X*404040404040404040' 
TRS TINPUT=TAPEINsRECSIZE=80,ARGUMENT=C PEND*® ,SCANPOS=10 
REW OUTPUT=TAPEIN 
TRS INPUT=TAPEINsRECSIZE=80,ARGUMENT=X'C3!* 
TRS INPUT=TAPEINsRECSIZE=80,ARGUMENT=X*C3C! 


9. TRS JOBSTREAM EXAMPLE (TAPE RECORD SCAN FROM CONTROL CARDS) 


//SAMPTRSV JOB (*A=SX82")3"PAS3 BRAMMER!, 
//  MSGLEVEL=1,CLASS=G,REGION=L00K 


4/ EXEC 


//STEP 1. 


$$DITTO 


10. TRS 


DITTOTP,PARM.STEP1="JOBSTREAM!*,IN=2400 
SYSIN DD * 
TRS INPUT=TAPEIN;,RECSIZE=V_ ARGUMENT=C* DE37999* » SCANPOS=10 


VARIABLE BLOCKED JOBSTREAM EXAMPLE (CONTROL CARD SCAN) 


J/SAMPDRS) JOB ('A=SX82'),'PASS BRAMMER', 
// MSGLEVEL=1,CLASS=GeREGION=128K 


4/ EXEC 


//STEPL. 


$$DITTO 
$$DITTO 
$$DITTO 
$$DiTTO 
$$DITTO 
$$DITTO 
$$O1ITTO 
$$DITTO 
S$$DITTO 
$$DITTO 
$$DITTO 
$$DiTTO 
$$D1TTO 
$$DITTO 
$$DITTO 
$$DITIO 
$$DITTO 


Ll. DRS 


DITTODP yPARM. STEP1=" JOBSTREAM® sO0SNM="SYS1.DITTOMAC® 
SYSIN vO * 
DRS BEGIN=00000+END=00000 ,RECSIZE=80 » SCANPQS=1, SCANTYPE=D, 
INPUT=DISKIN, 
ARGUMENT=C*MAIN® 
DRS BEGIN=00000, END=00000 s,RECSIZE=803SCANTYPE=Ds INPUT=DISKINg 
ARGUMENT=C*MAIN® 
DRS BEGIN=00000, END=00003,SCANTYPE=Es INPUT=DISKIN 
DRS BEGIN=00000,END=00003 sSCANTYPE=Es INPUT=DISKIN 
DRS BEGIN=00000 ,END=00003,RECSIZE=80 ySCANPOS=1,_SCANTYPES=E » 
INPUT=DISKIN 
DRS BEGIN=00000 ,END=00000 sRECSIZE=80 » SCANPOS=1 y SCANTYPE=K » 
INPUT=DISKIN, 
ARGUMENT=X*FFFFFFFFFFFFFFFF® 
DRS BEGIN=00000,END=00000, 
INPUT=DISKIN, 
SCANPOS=1, 
SCANTYPE=K, 
ARGUMENT=X* FFFFFFFFFFFFFFFS® 


JOBSTREAM EXAMPLE (DISK RECORD SCAN FROM CONTROL CARDS) 


xX 


X 
X 


< «KX 


APPENDIX C 
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=[Lé »# 1 GF 57S8-CvLA PICO TAPE (JCBS INSHLIB, INS#PRCC, AND ADOPROC). 


//UNS# LIB JOB ('A=SX82'),' PASS BRAMMER'S, 

f/f MSGLeVelL=1,CLASS=G,REGION=1LO0K 

//* THIS JOQo ALLCCATES A LIBRARY GN VOL=REF=SYSL.-LINKLIB. IT WILL BE 
41% USeD TO CONTAIN NCAL LUAD MODULES. 

1/* A COPY LIBRARY (SYSL.DITTGMAC) WILL BE ALLOCATED ON VGL=REF= 
//* SYS1.DITTOLIB BY JCB *DITTOMAC® LATER IN THE INSTALL STREAM 
4/SCRSTEP EXEC PGM=ITEHPRCGM 


4/001 DO UNIT=SYSUAsDISP=SHR, 


4/ VOL=KEF=SYS1.LINKLIB 
J/9NSPRINT Do SYSOUT=A 
4/SYSIN OO * 


SCRATCH DSNAME=SYS1.DITTCLIB, VOL=3330=VSIRESs PURGE 
StkATCH DSNAME=SYS1-DITTOLI&s VOL=3330=VSLIBS» PURGE 
SCRATCH DSNAME=SYS1 .DITTOLIB: VOL=2314=STEVEBs PURGE 


UNCATLG DSNAME=SVS1.DITTJLIB 
1* 
// EXEC PGM=IEFBR1I4 
//UK EL eSYSLMGY DO OSN=SYS1.D0ITTGLIBsUNIT=SVSDA; 
4/ DIS P= (NEW ,CATLG) »SPACE=(CYL1(2,1219))5 
4/ VUL=KEF=SYS1.LINKLIB 
// 
//INS#PROC JOb (*A=SX82"),"PASS BRAMMER', 
//- MSGLEVEL=1 sCLASS=G6,REGICK=128K 
// EXEC PGM=I1E BUPDTE,PARM=NEW 
J/SY¥SUTé OD DSN=SYS1. PROCLIEsDISP=SHR 
//S*¥SPRINT DD SYSCUT=A 
J/SYSIN DD LAT As DCB=BLKSIZE=802DLM=AA 
e/ Abu NAMc=CI TTODSR»LIST=ALL 
*/EXeCSTEP EXcC PGM=IEFBR14 
1/* THIS PROC IS REFERENCED BY THE DITTO INSTALLATION STREAM 
s/%* ITS.USE IS TO CGNTRGL (FROM CNE SCURCE) THE DATA SET NAMES 
1/%* REFERRED TO AND STORED INTO BY THE INSTALLATION JOBSTREAM 
J/OLTTOMAC BD DSN=SYS1.DITTOMAC sDISP=SHR 
1/% CUNCATENATE TC MACLIB FCR COPY FACILITY 
//LGAULIB OD OSN=SYS1.01TTOLI8+D1ISP=SHR 
/* LOAD MODULE LIBKARY 
11% ALSO STORE OBJECT CODE ( NCAL ) FOR LATER RE-LINKEDIT 
//LINKLIB DD CSN=SYS1LeLINKL IB, O1SP=SHR 
1/%* wILL BE USED FCR APF MODULES THAT MUST BE IN AN 
1/%* AUTHORIZED LIBRARY 
7/PROICLIB OD CSN=SYS1.PROCLI&, DISP=SHR 
1/%* ; PROCLIB: USED BY JOB 'ALDPROC! 
o/ ADU NAME=DITUPOTEsLIST=ALL 
//TEFRROC PROC TUNIT=2400,I1SER=AROTAP,0S ER=CDAOO] » 
// IDSN="GSUTTTC.N57SB8ARD.VOZMO0! » 
// GOS N=*CSDITTO.N57¢58CDA.VO1MOO! 
//STER1 EXEC. PGM=ITEBUPDTE »PARM=MCD 
J/SYSPRINT DD SYSOUT=A 
4/SYSUT1 Co DSN=EIDSN,UNIT=E&TUNIT, 
ff DCB=(BLKSIZE=1600,RECF M=FB;LRECL=80) » 
41 DISP=(SHR»KEEP)» 
‘7 VUL=SER=EISER, 
// LABEL =(,BLP) 
//SYSuT2 OD DSN=EQDSN,UNIT=ETUNITs 
t/ DCB=( BLKSIZE=1600,RECFM=F8,LRECL=80), 
// DISP= (NEWsPASS)+ 


L1000100 
L 1000200 
L100C300 
L 1000400 
L1000509 
L1000600 
L 1000700 
L1000800 
tL 1000900 
1001000 
11001100 
{1001200 
L1001210 
1001300 
L 1001400 
1001500 
L1001600 
L 1001700 
110018090 
L 1001900 
LI1002000 
IN002100 
IN002200 
INJ92200 
IN002400 
INO0O2500 
INQO02600 
IN002700 
INO002800 
IN002900 
IN003000 
INOG3100 
INGO03200 
IN0903300 
1N003400 
INQQ3500 
INQO03600 
IN003700 
INQ03800 
IN003900 
ING04000 
INO0C4100 
IN904299 
1N004300 
IN004400 
INC04500 
IN004600 
1N004700 
IN004&00 
INOQ04900 
IN005009 
IN005100 
INOO5200 
IN005300 
IN005400 
IN905500 


4/ 

4/ 

e/ eNDUP 

AA 

tf 

4/ACDP ROC 
// MSGLEVEL=1 
//PROULSTEP EXE 
//STEPL EXEC P 
J/SVSUT2 DU DS 
//SYSPRINT DD 

J/SYSIN OD DAT 
e/ AdU NAME=Di 


VUL=S 
LABEL 


//TEFPROC 
//STEP 1 EXEC 
//OITIN DO 
J/OITTPRINT OD 
S/SNSUT1 oD 
A/ISVSUT2! DD 
4/SYSPUNCH DD 
4/ 

4/ 

1/%* 


//SYSPRINT DOD 
//S¥YSUDUMP DD 
ef Atv NAME=D1 
//TEFPROC PRG 


4/ TLA 
//STEP1 cAEC 
//DITPRINT DD 

//ODITIN DD 

//01SK DD 

J/STAPE DD 

tf 


7/S¥SPRINT DD 
//S¥SUDUMP GD 
e/ Adu NAME=D1 


//1EFPRGC PRO 
// TLA 
//STEPL EXE 
S/DITPRINT OD 
//OITIN OD 
4/01SK OD 
//TAPC oD 
4/ 


J/SYSPRINT DD 
//SVSUDUMP GC 
e/ AGL NAME=0I1 
//iBFFPROC PRU 
4/STEP 1 EXEL 
//O01ITTOOD1 OO 
//OITPRINT OD 
//OITIN CO 
//SYSPRINT OD 
JIS SUDUMP DD 
e/ ADD NAME=Di 
//TEFPROC PRO 
// UFI 


ER=G0SER; 
=(,BLP) 


JOB (*A=SX82'),"PAS3 BRAMMER *, 


»>CLASS=G6 ,REGION=1 00K 

C DITTODSR 

GM=TEBUPDTE, PARS=NEW 

N=* sPROC STEP -EXEC STEP. PROCLIB,DISP=SHR 
SYSOUT=A 

A,DCB=BLKSIZE=80sDLM=AA 
TTOPDS,LIST=ALL 


PROC IN=SYSDAsSER=2 DS NM= 5 CLS=B 9 PUN= 5 FUN= 


PGM=GSDITTGsREGIGN=100K 
UNIT=SYSDAy_SPACE=(TRK»€ 151) }yDOSN=ECTLCARD 
SYSOUT=A 
CISP=SHR, UNIT=&I N+ VOL=SER=ESER,DSN=E0SNM 
SYSOUT=A USE FOR PRINT 
SVSOUT=ECLS; USE FOR PUNCH 
CCB= FUNC=EFUN, USE FOR 3525 INTERPRET 


UNIT=& PUN USE FOR ONLINE 
(REMOVE OCB=FUKC IF IT CAUSES JCL ERROR) 

SYSOUT=A 

SYSOUT=A 


TTOLUM,LIST=ALL 
C DUNIT=SYSDA, DSER=,TDISP=NEW, TUNIT=TAPEs 
B=BLP ,TDE N=, TOSN=BACKUP, TSER=DUMT AP 
PGM=OSDITTGOsREGION=1LO0K 
SYSOQUT=A 
UNI T=SY SDA ,SPACE=(TRK 341 91)) sDSN=ECTLCARD 
DISP=OLD, UNI T= EDUNITs VOL=SER=EDSER 
DISP=(&ETDISP,KEEP) sUNIT=E&TUNIT » VOL=SER= &TSER, 
LABEL=(1,&TLAB) ,DCB=DEN=E TOEN,DSN=ETOSN 
SYSGUT=A 
SYSOLT=A 
TTORESsLIST=ALL 
C DUNIT=SYSDA_ OSER=sTDISP=SHR+y TUNIT=TAPE, 
B=BLP y TDEN=, TOSN=BACKUP,TSER=REST AP 
PGM=OSDITTOsREGION=100K 
SYSGUT=A 
UNI T=SY SDA, SPACE=(TRK 94151) ) sDSN=ECTLCARD 
DIS P=OLD,UNIT=&DUNIT,VOL=SER=E&DSER 
DISP=(&TDISP, KEEP) sUNIT=&TUNIT 9 VOL=S ER=ETSER, 
LABEL=( 1, &TLAB) »DCB=DEN=& TOEN» DSN=E TDSN 
SYSGUT=A 
SVSOUT=A 
TTOUTL sLIST=ALL 
C IN=SYSDAsSER= 
PGM=OSDITTG,REGICN=L00K 
DIS P=OLD,UNIT=&IN,VOL=SER=&SER 
SYSOUT=A 
UNIT=SYSDAys SPACE=(TRK of 121) )s0SN=ECTLCARD 
SYS OQUT=A 
SVSOUT=A 
TTOCQT»LIST=ALL 
C ODSN="*CQT.OUT* , GQUT=T APE, GNEW=NEWs GOKEEP=K EEPsOSER=y 
LENG=1,0LABEL=SLy, 


IN005600 
INCG5700 
INGO580G 
IN005900 
1N0060090 
AD606100 
AC006200 
AD006300 
AD006400 
AD006500 
AD006600 
ADO006700 
A0006800 
AD006S00 
ADOC 7000 
AD007100 
Ab007200 
AD007300 
AC007400 
AD007500 
A0007600 
AD007700 
A6GO076G0 
AD007909 
ADO008000 
AD00 8100 
AG 008200 
AD008300 
AD008400 
ADOC85G60 
AD00 8600 
AD008709 
ADO008800 
A000 8900 
ADOC9COO 
&40009100 
AD009200 
AD009300 
A6009400 
ADO009500 
AD009600 
AD009700 
ADCOS 800 
AC 009900 
AD010000 
AD010100 
ADOQ10200 
ADO010300 
AD010400 
AD010500 
AD010600 
AC010700 
ADQ10800 
AD010900 
ADO11000 
AD0111090 
ADp011200 
ADO11300 


Sf GRECFM=,OQLRECL=,0BLKSI2Z=, 

4 Kk DR=00C 

//STEPL EXEC PGM=OSDITTO,REGICN=100K 

//QSAMOUT DD DSN=&ODSN,UNI T=&GUTsDIS P=(ECNEWs EOKEEP) » VOL=SER=€&0SER, 
// LABEL=( &GFILENOQ,&CLABEL) + 

// DCB=(RECFM=&ORECFMyLRECL= €CLRECL » BLK SIZE=€0BLKSIZ) 
A/SYSPRINT DD SVYSOUT=A 

//SYSUDJMP DD SYSOUT=A 

//SYSIN DD UNIT=ERDR » OCB=(BLKSIZE=380 yRECFM=F) 

e/ ADS NAME=DITTOCQDs,LIST=ALL 

//TEFe ROC PROC ODSN=*CQD GUT § sO0UT=SYSDAsONEW=NEWs GKEEP=KEEP 2 OSER=,y 


// GSPACE=TRK sGPRI=1 »CSEC=1; 

tf CReECFM=,OLRECL=,GBLKSIZ=y 

ff RDR=00C 

f/STEP 1 EXEC PGh=CSDITTC,REGICN=100K 

//QSAmGUT DO DSN=G0 DSN; UNIT=&OUT,DISP=( GONEW, GOKEEP) »VOL=SER=E0SER: 
4/4 SPACE=(&OS PACE, (E0PRKI, EOSEC) Dy * 

// DCB=(RECFM=&ORECF My, LRECL=&CLRECL,BLKSIZE=ECBLKS IZ) 


//SYSPRINT OD SYSGUT=A 

4/SY¥SUDUMP DD SYSGUT=A 

//SVYSIN DD UNI T=&RDR ,OCB=(BLKSIZE=80,RECFM=F) 

ef ADu NAME=DITTOQC,LIST=ALL 

//TEFPROC PRUC IDSN=s,IN=SYSOA_ ISHR=SHR»eITKEEP=KEEP, ISER=, 

// CLS=BsPUN=+ 

4/ TFILENO=1 , ILABEL=SL, IRECFM=,ILRECi=; IBLKSIZ= 

//STERIL EXEC PGM=OSDITTO,REGICN=100K 

//GSAMIN DD DSN=E1DSN,UNIT=&INsDISP=( EE SHR» ET KEEP) » VOL=SER=E1SER, 


4/ LABEL=(E1FILENC,&1 LABEL); 

4/ OCB=(RECFM=EITRECEM,LRECL=&I1 LRECLsBLKSIZE=€1BLKSIZ) 
//S¥SPUNCH UD SYSOQUT=ECLS, USE FOR PUNCH 
4/ UNI T=&PUN USE FOR ONLINE 


4/SYSPRINT UD SYSOUTH=A 
//SY¥SUDUMP OD SYSGUT=A 
of ADv NAMc=OCITTOGCI,LIST=AtL 


//TEFPROC PROC IDSN=s IN=SYSDAy ISHR=SHR 2 IT KEEP=KEEP,I SER=, 
4/ CLS=,FUN=I »PUN=O0CCE, 
4/ TFILENO=1, ILABEL=SL,IRECFNM=,ILRECL=,I18LKSIZ= 


//STEPL EXEC PGM=OSDITTO,FEGION=LUOK 


J/QSAMIN ‘OD DSN=&I DSN gUNIT=EINsDISPH=(EISHRETKEEP) »VCL=SER=EISER, 

t/ LADEL=(&IFILENG,&ILABEL), 

4 CCB=(RECFM=EITRECFMsLRECL=€ILRECL s BLKSIZE=G&1BLKSIZ) 
//SNSPUNCH DD SYSOUT=&CLS, USE FGR PUNCH 

// CCB= FUNC=EFUN, USE FOR 3525 INTERPRET 
4/ UNI T=& PUN USE FGR ONLINE 

1 if (REMGVE DCB=FUNC IF IT CAUSES JCL ERRCR) 


J/SYSPRINT DO SYSOUT=A 
S/SYSUDUMP DD SYSOUT=A 
ef ADU NAME=CITTOQTT»LIST=ALL 


//TEFPROC PROC IDSN=,IN=TAPEs ISHK=SHRy IK EEP=KEEP, ISER=, 

// TF ILENO=1,1TLABEL=Si,IRECFEM=,ILRECL=,I1BLKSIZ=, 

// OOS N=" QTT .OUT® ,OUT=TAPE, GNEW=NEW, OKEEP=KEE P,OSER=, 
4/ OFILENU=1 ,QLABEL=SL; 

4/ GRECFM=,0LRECL=,GBLKSI Z= 


//STEPL EXEL PGM=OSDITTO,REGION=100K 


7/QSAMIN CE OSN=E&1DSN,UNIT=EINOISP=(EISHR,EIKEEP),VOL=SER=E€ISER, 
4/ LABEL=(&1FILENO,&ILABEL), 

// CCB=(RECFM=E IT RECFM, LRECL=&ILRECL, BLKSIZE=E1BLKSIZ) 
//QSAMOUT OO DSN=E&CDSN,UNIT=80UT »DISP=(ECNEWEOKEEP) »VOQL=SER=ECSER, 


AD011400 
AD011500 
AD011600 
AD011700 
ADO11800 
AD011900 
AC012000 
AD012100 
ADOQ12200 
ADO012300 
AD0124900 
AD012500 
AD012600 
AD012700 
AD012800 
AD012900 
AD013000 
ADO013100 
AD013200 
AD013300 
AD0 13400 
ADO135006 
AC013é00 
AD013700 
4D013800 
A5013900 
ADQ14000 
AD014100 
AD0 14200 
ADO014300 
AD014400 
AD014500 
ADC14600 
AD014700 
AD014800 
AD014900 
ADO15000 
AD015100 
AD015200 
ADO1 5300 
AD015400 
AC015500 
AD015600 
AD015700 
ADO015800 
AD 015900 
AD016000 
ADQ16100 
AD016200 
AD016300 
AD016400 
AC016500 
ADO16600 
AD016700 
406016800 
AD016900 
AD017000 
AD017100 


4/ LABEL=(&CFILENOs&O0LABEL), 

4/ DCB=(RECFM=&0RECFM,LRECL=ECLRECL, BLKSI ZE=E0RBLKSIZ) 
J/SYSPRINT DO SYSOUT=A 

4/SYSUDUMP DD SYSOUT=A 

ef ADU NAME=LITTOQTOsLIST=ALL 


//TEFPROC PRGC IOSN=¢ IN=TAPE, ISHR=ShK, IKEEP=KEEP,ISER=y 

4f IF ILENU=1 pT LABEL=StLeITRECFM=,ILRECL=, IBLKSIZ=, 

// OLYN="QTD.OUT® ,QUTH=SYSTASLNE W=NEW sCKECP=KEEPsCSER=, 
4/ CSPACE=TRK,OPRI=1,0S EC=1, 

tf ORE CF M= sOLRECL=,CBLKSIZ= 


4/STcPL cXEC PGM=OSDITTO,REGIGN=1GCK 


7/QSAMIN DD OSN=EIDSNsUNIT=EINsDISP=( EISHR, ELKEEP) » VOL=SER=EI SER, 
4/ LABEL=(&IFILENO,EILABEL) , 

4/ OC B= (RECFM= EIRECFM,LRECL=E1 LRECL , BLKSIZE=EIBLKSIZ) 
4/aSAMGUT GD DSN=E&U0DSNsUNI T=ECUT 01S P=(ECNEWs ECKEEP) »VOL=SER=E0SER, 
4/ SPACE=( GGSPACE, (&QPRI,&ECSECI)» 

4/ OCB= (RECFM=&0RECFM, LRECL=G0LRECL y BLKSIZE=€&0PLKSIZ) 


4¢4SYSPRINT OD SYSOUT=A 
J/SYSUCUMP OD SYSOUT=A 
e/ ADL NAME=DITTOQOD,LIST=ALL 


J/TEFRPRGC = PRUC I[DSN=,IN=SVSDA, I SHR=SHR»g I KEE P=KEEP,ISER=, 

4/ IF IRENG=1, ILABEL=SL» IRECFM=sILRECL=,18LKSIZ=, 

4/ OOSN=" QOD .OUT* ,OUT=SYS DA, CNEW=NEW , CKEEP=KEEPs OSER=, 
4/ OSP ACE=TRK ,OPRI=1,CSEC=1, 

4/ ORE CFM= ,OLRECL=,0BLKSIZ= 


//STEV 1 EXEC PGr=OSDITTO,REGICN=100K 


77 QSAM IN UD DSN=EI1DSNs UNI T=6I1N,UISP=( G1 SHR pE TL KEEP) » VOL=SER=EISER, 
4/ LABEL=(GI1FILENG,GILABEL), 

4 DCB=(RECFM=E1 RECFM,LRECL=EI1 LRECL» BLKSI ZE=EI1 BLKS IZ) 
//QSAMOUT OD OSN=E00SNe UNIT=EOLT sDISP=( EONEW, EQKEEP) »VOL=SER=EOSER , 
44 SPACE=(E&QSPACEs (ECPRI,ECSEC)),» 

4/ DCB=(RECFM=E0RECF Mg LRECL=E0LRECL, BLKSIZE=E0 BLKS IZ) 


SF SVSPRINT OD SYSQUT=A 
4/SYSUDUMP DD SYSOLT=A 
of ADe NANc=CITTOQOT,LIST=ALL 


//TEFPROC PRUC TDSN=_,IN=SYSDAy, ISHR=SHR», IKEEP=KEEP, ISER=, 

4/ IFILENO=1 ,ILABEL=SL, IRCCEM=,ILRECL=_,I BLKSIZ=, 

44 OOSN=* QOT OUT ,OUT=TAPE sONEW =NEW »s CKEE P=KEE P,OSER=, 
4/ OFITLENO=1 , CLABEL=SL, 

4/ GRECFM=,OLRECL=,0BLKSI z= 


S/sTEPL EXEG PGM=OSDITTO, REGICN=1900K 


J/QSAMIN DD DSN=ELOSNeUNIT=EI Ns DISP=(EISHRs EIKEEP) »VOL=SER=EISER, 
4/ LABEL=(EIFILENO,&I LABEL) » 

4/ CCB=(RECFM=6 [TRECFMsLRECL=6ILKECL, BLKSIZE=61BLKSIZ) 
J7Q9AMOUT DD DOSN=E0DSNeUNI T=G0UT 201 SP=(ECNEW, EGKEEP) pVOL=SER=ECSER, 
4/ LADEL=( 60F ILENO, €OLAGEL), 

41 DC B= (RECFM=GORECFM,LRECL=ECLRECL» BLKSIZE=E0BLKSIZ) 


S/SVSPRINT DS SYSOUT=A 

4/SYSUOUMP DD SYSCUT=A 

ef ADU NAME=DI TTOUP sLIST=ALL 

A/1cFPROC PRUC ICDSN=_, IN=SYSDAzs I SHR=SHR »y I KEE P=KEEP,ISER=2 
44 CLS=AyPRT=3 

tf IFILEWG=1,TLABEL=SL,I1kECHP=,ILRECL=,I1BLKSIZ= 
//STEPL EXEL PGM=OSDITTOeREGICN=1I0K 


47 QSAMIN DO DSN=ELDSNeUNIT=G1IN,CISP=(EISHRs EIKCEP) » VOL=SER=E1SER, 
41 LABEL=( GIF ILENC,GT LABEL) » 
44 DCB=(RECFM=ET RECFMeL RECL=EILRECL, BLKSIZE=E16LKSIZ) 


4/SSP UNCH 0D SYSOUT=38 


ADO172CO 
AD01 7300 
ADI1 7499 
ADO17560 
Acv017600 
AD917700 
AD01 7800 
AD017900 
ADO18000 
ADO018100 
ADI18200 
ACO1 8300 
AC0184C00 
AD918500 
AC0O18600 
ADO 18700 
A001 880C 
ADO18900 
AD019900 
A0D019100 
AD019200 
AD 019300 
AC 019400 
AD019500 
AD019600 
AD019700 
A0019800 
AC 019900 
40020000 
AD020100 
Ab0020200 
AD020300 
AD020400 
AD020500 
A002 0000 
AD020700 
AD020800 
AD920990 
AD021000 
AL0Z1100 
AD021200 
ADO21300 
AD021400 
A0D021500 
AGO21600 
A0021700 
AD021800 
A0021900 
AD022000 
AD022100 
ADI2 2200 
AD022300 
AC022400 
AD022599 
AD022600 
AD022700 
AD022800 
AD02 2900 


//SYSPRINT OD SYSOUT= &CLS gUN T= EPRT 


4/SYSUDUMP DD SYSOUT=A 


e/ Adu NAMC=DITTOVPs,LIST=ALL 
PROC IOSN=y, IN=¢ ISHR=SHR» ISER=, [AMP=sCLS=AyPRT= 


//TEFPROC 
//STERL 
J/VNSAMIN 


EXEC 


J/SYSPRINT DD SYSQUT=&CLS_UNIT=E&PRT 


//SVSUDUMP OG SYSOUT=A 


e/ ADU NAME=DITTOLOGsLIST=ALL 
PRUC GUT=TAPE, CDEN=3,CTRICH= 
//STcP1 EXEC PGM=LITTGLOG 


S/TEFPROC 


11% 
11% 
//%* 
1 /* 
1/* 
1/%* 
1/% 
11% 
4/% 
//* 
1/% 
11% 
//* 
1/%* 
‘f* 
11% 
//* 
14% 
11% 
11% 
//* 
4/* 
/1* 
s/% 
//* 


DITTOLOG RUNS KEY=0 WHEN AUTHGRIZED 
PLACING MCCULE NAME CITTOLOG IN THE IEEL INKT 


le 


Ze 


KEY=0 IS REQUIRED TO ALLOW WRITING A TAPEMARK CN A LOG TAPE 
WITHOUT REWINDING THE TAPE. THIS IS USEFUL FOR PROVIDING 
OF FILE CA LCGGTAPE REELS THAT ARE NOT CLOSED 


AN END 


PG M=OSDITTCs REGICN=100K 
DD DSN=&I1DSN-UNIT=€&INsDISP=&1 SHR» VOL=SER=EI SERsAMP=ET AMP 


LIST FOR KEY=0 MODULES 
IS STARTED FROM TEE CONSOLE 


DUE TO A SYSTEM FAILURE. 
THE CGPERATIONAL PROCEDURE FOLLOWS: 


1. 


2e 
36 


4e 


5e 
om 


AFTER A FAILURE AND BEFORE RE-IPL, 
(0G NOT REWIND) 


LOGTAPE URIVE OUT GF READY STATE 
THIS CAN BE DONE BY DEPRESSING RESET. 
RE-IPL THE SYSTCM 


S DITTOLOG ,0UT=280 


ODEN DEFAULTS TG 3 (1600 BPI) 


TO CVERRIDE USE CDEN=4 (€£.G. 
AN ODEN VALUE IS REQUIRED (NULL = 


TO DC SO BY: 


TAKE THE 


(WHERE 260 IS THE LOQGTAPE} 


OTRTCH DEFAULTS TC NULL (NO 7 TRK) 


GCCURED, 


TC OVERRIDE USE OTRICH=ET (EVEN & TRAN.) 
AFTER CEVICE ALLOCATION AND A MOUNT MESSAGE HAVE 
THIS CAN BE 


READY 


THE LCGTAPE CRIVE. 


DONE BY DEPRESSING START. 


A SINGLE TAPEMARK WILL BE WRITTEN ON 
IF A WRITE ERRCR CCCURS THE CPERATOR WILL BE 


NOTIFIEG AND GIVEN THE GPTIGN TO RETRY OF ABORT. 


/S/LUGTAPE DD UNI T=&OUT, VOL=SER=LCGTAP sDSN=LOGT APE, CISP=SHR, 
LABEL=(,BLP),O0CB=( DEN=&QDEN » TRTCH=E0TRTCH) 


4/ 


4/SYSUDUMP DD SYSOUT=A 


e/ ENG UP 
AA 
4/ 


6250 BPI) 
ERROR) 


THE LOGTAPE. 


AD923000 
40023100 
AD023200 
AD023300 
AD023400 
AD023500 
ADOQ23600 
ADO023700 
AD022800 
AD023900 
ADO024000 
AD024100 
AC024200 
AD024300 
AD024400 
AD024500 
AD 024600 
AQD024700 
AD024800 
ADC24900 
AD025000 
AD025100 
AD02 5200 
AD025300 
AD92 5400 
AD0025500 
ADO025600 
AD025610 
A0025700 
AD02 5800 
AD025900 
ADO026000 
AD026100 
AD026200 
A0026300 
AD02 6400 
A6026500 
AD026600 
AD026700 
AC026800 
AD026900 
AD027000 


APPENDIX D 


=66= 


OPERATING 


Module 


DITTOLOG 


DITTOLOG 


DITTOLOG 
OSDITTO 


DITTOLOG 


DITTOLOG 


Name 


Csect 


IEEVLNKT 


IEEVLNKT 


ITEEVLNKT 


ITEFSDPPT 


IEEVLNKT 


ITEFSDPPT 


m6 1= 


PROGRAM PROPERTIES AND LINK 


Section 


First 


First 


First 
Fourth 


First 


Set 
Unique 
Key and 
KEY=0 
Bits 


Module (s) 


ITEEVLNKT 


TEEVLNKT 


ITEEVRCTL 
IEFSD161 
IEF161SD 


IEEVLNKT 


IEFSD060 


TABLE ENTRIES 


AUTHORIZED PROGRAM FACILITY AND DITTOLOG (KEY=0) REQUIREMENTS 


Library 


LINKLIB 


LINKLIB 


LINKLIB 
LINKLIB 
LINKLIB 


LPALIB 


LPALIB 


Entry 
Function 


KEY=0 


KEY=0 


KEY=0 
APF 
APF 


KEY=0 


KEY=0 


OS DITTO Extensions 


SB21-1550-0 


Printed in 


UsSeA. 


SB21-1550-0 


